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SPECIAL 


VICMNTERRUPT 


VIC-20  er  en  lidt 
gammeldags 
computer,  men 
udnyttes  den 
rigtigt  har  den 
masser  af 
muligheder. 
Vores  læser 
Rune  Gunder- 
sen  kommer  i 
denne  artikel 
ind  på  inter- 
rupts,  og  hvor¬ 
dan  du  define¬ 
rer  funktions¬ 
tasterne  på  en 
smart  måde. 


■  I  denne  artikel  beskæftiger 
vi  os  med  interrupt-program- 
mering  pd  en  almindelig 
VIC-20  uden  udvidelser.  For 
at  fd  forstdelse  al  denne  arti¬ 
kel  md  man  dog  have  et  for- 
udgdende  kendskab  til  ma¬ 
skinkode  programmering  i 
6502-processoren,  det  ville 
være  alt  for  omfattende  at 
komme  ind  pd  det  her. 
VIC-20's  operativ-system  er 
interruptstyret.  Det  vil  sige,  at 
60  gange  i  sekundet  testes 
stopknappen,  og  systemuret 
forøges.  Prøv  for  eksempel  at 
skrive  FORT=  1T03000:NEXT. 
Tryk  pd  return  og  derefter 
nogle  andre  taster.  Ndr  FOR. 
NEXT  sløjlen  er  færdig,  vil  de 
sidste  indtastede  bogstaver 
vise  sig.  Dette  er  fordi  at 
VIC-20 's  keyboard  ogsd  er  in- 
terrupt  styret. 

Interrupt  vektoren  ligger  i  ad¬ 


resserne  788  og  789.  Hver 
0,0 1 6  sekund  kigger  6502  pro¬ 
cessoren  pd  disse  steder  og 
hopper  til  en  rutine,  angivet 
ved  den  mest  betydende  by¬ 
te  (adrs./256)  i  lokalition  789, 
og  den  mindst  betydende  by¬ 
te  i  lokalition  788. 

Ndr  man  skal  lave  sin  inter- 
rupt-rutine.  md  man  først 
ændre  værdien  i  disse  posi¬ 
tioner  til  den  adresse,  hvor 
man  har  placeret  sin  egen  in- 
terruptrutine ,  Inden  dette  md 
6502  have  besked  om,  at  den 
skal  stoppe  med  at  læse  inter¬ 
rupt  vektorerne  (PEEK  (788), 


PEEK(789)).  Dette  gøres  med 
SEI(  1 20). 

Ndr  den  nye  adresse  er  lagt 
ind  i  interruptvektorerne, 
genstartes  processoren  med 
CLI(88).  Tilsidst  returneres  til 
BASIC  med  RTS(96).  Ndr  dette 
er  gjort,  kan  man  gd  i  gang 
med  sin  egen  interruptrutine. 
Den  nye  interrupt  rutine  md 
afsluttes  med  en  JMP(76)  til 
den  gamle  interrupt  rutine 
dvs.  76, 191(PEEK(788)),  234 
(PEEK(789)). 

Jeg  vil  nu  vise  det  første  eks¬ 
empel  pd  en  udnyttelse  al  in¬ 
terrupt  vektorerne. 


10  DATA 


50  DATA 
70  DATA 
80  DflTfi 
90  DflTft 
100  DflTfi 
110  DATA 
120  DATA 
i 30  DATA  -1 
140  READA:IFA<>- 
1 50  SY97200 
160 


120 

:  REM 

SE  I 

// 

169, 45 

:  REM 

LDA#  45 

// 

141, 20, 3 

:  REM 

STA  788 

// 

169,  28 

s  REM 

LDA#  28 

// 

141,21,3 

:  REM 

STA  789 

// 

88 

:  REM 

CL  I 

// 

165, 197 

:  REM 

LDA  197 

// 

201, 39 

:REM 

CMP#39 

// 

1  208, 3 

:  REM 

BNE  3 

// 

l  238, 15, 144 

:  REM 

INC  36879// 

i  76, 191, 234 

:  REM 

JMP  6009 

5// 

INTERRUPT  PAUSE 

LÆS  DEN  LAVE  BYTE  FOR  ADRESSEN 
GEM  I  VEKTOR  788 
LÆS  DEN  HØJE  BYTE  FOR  ADRESSEN 
GEM  I  VEKTOR  789 
FORSÆT  INTERRUPT 
LÆS  DEN  NEDTRYKKEDE  TAST 
ER  F 1  NEDTRYKKET 
HVIS  NEJ  SÅ  HOP  3  FREM 
POKE  36879, PEEK (36879) +1 
AFSLUT  INTERRUPT 


1THEN  POKE  7200+T, A:T=T+1 :G0T0140 


Det  ses  at  linie  20-50  sætter  in- 
terrupt  rutinen  til  adresse 
7213.  tordi 

45  +  28*256  =  7213. 

Kør  programmet  og  prøv  at 
trykke  på  F1  så  tit  du  vjj.  Hvis 
programmet  afbrydes  af  en 
R/S+RESTORE,  skal  du  gen¬ 
starte  interrupt-rutinen  med 
SYS7200. 

Det  kan  være,  du  kan  se  de 
mange  muligheder  ved  brug 
af  interrupt.  Lad  os  nævne 
cursor  styring  med  joystick, 
grafik,  lyd  og  du  kan  sågar 
lave  dine  egne  kommandoer 
ved  hjælp  af  JSR 1 1 5 
(CHRGOT),  som  henter  næste 
BASIC  karakter  ind  og  under¬ 
søger  den. 


5  REM  DEFINERING  AF  FUNKTIONSTASTER  PÅ  VIC-20 
10  DATA  120.169,45,141,20,3,169,28,141,21,3,08,96: 


REM 


20  DATA  165,197,174,141.2 
30  DATA  201,39,208,7 
40  DATA  224,1,240,3 
50  DATA  238, 15, 144 
60  DATA  201,39,208,9 


70  DATA 
80  DATA 
90  DATA  201,47,208,9 


:4,  1, 208,  5 
160, 27, 140, 15, 144 


100 

DATA 

224,  1, 240, 5 

REM 

ER 

X=l:  JA  HOP  +5 

1 10 

DATA 

160,  255, 140,  138,  2 

REM 

y- 

225:  POKE  650, y 

120 

DATA 

201, 47, 208, 9 

REM 

ER 

A=47 :  NEJ  HOP  +9 

130 

DATA 

224,  1,208,5 

REM 

ER 

X=1 :  NEJ  HOP  +5 

140 

DATA 

160, 0, 140, 138, 2 

REM 

y=' 

Ci:  POKE  650,  y 

150 

DATA 

201, 55, 208, 9 

REM 

ER 

A=55:  NEJ  HOP  +9 

160 

DATA 

224, 1, 240, 5 

REM 

ER 

X=1 : JA  HOP  +5 

170 

DATA 

160, 100, 140, 40, 3 

REM 

y- 

100:  POKE  808, y 

180 

DATA 

201,55,208,9 

REM 

ER 

A=55 :  NEJ  HOP  +9 

190 

DATA 

224, 1, 208, 5 

REM 

ER 

X=1 :  NEJ  HOP  +5 

200 

DATA 

160, 1 12, 140, 40, 3 

REM 

y= 

112:  POKE  808,112 

210 

DATA 

201, 63, 208, 9 

REM 

ER 

A=63 :  NEJ  HOP  +9 

220 

DATA 

224, 1, 240, 5 

REM 

ER 

X=1 :  JA  HOP  +5 

230 

DATA 

160, 200, 140, 7, 3 

REM 

y= 

200:  POKE  775, y 

240 

DATA 

201,63,208,9 

REM 

ER 

A=63:  NEJ  HOP  +9 

250 

DATA 

224, 1, 208, 5 

REM 

ER 

X=1 :NEJ  HOP  +5 

260 

DATA 

160, 199, 140, 7, 3 

REM 

y= 

199:  POKE  775, y 

270 

DATA 

76, 191, 234, -1 

REM 

END  QF  INTERRUPT 

REM  A=PEEK j 197) : X=PEEK (6S 


INTERRUPT  FRA  ADRS. 7213 
) 


REM 

REM 

REM 

REM 

REM 

REM 

REM 


+7 


ER  A=39 :  NEJ  HOP 
ER  X=1 : JA  HOP  +3 
PEEK (36879) = PEEK (36879) +1 
ER  A=39 :  NEJ  HOP  +9 
ER  X=1 :  NEJ  HOP  +5 
y=27 : POKE  36879, y 
ER  A=47 : NEJ  HOP+9 


280  READA: IFA  0-1  THEN  POKE  7200+T, A: T=T+1 :GOTO  280 
290  SYS  7200 
300  NEW 


For  at  programmere  specielle 
taster  skal  du  bmge  PEEK(  1 97) 
og  undersøge  hvilken  tast  der 
er  nedtrykket. 

F1  =39.  F3  =  47,  F5  =  55.  F7  =  63. 
Hvis  F2.  F4.  F6  også  skal  defi¬ 
neres  må  du  undersøge  PEEK 
(653).  Hvis  denne  lokation  er 
lig  1  er  SHIFT  nedtrykket;  hvis 
den  er  lig  2  er  Commodore 
tasten  nedtrykket. 

I  det  sidste  eksempel  viser  jeg 
hvorledes  PEEK(653)  bruges 
for  at  undersøge  om  SHIFT  ta¬ 
sten  er  nedtrykket.  Efter  pro¬ 
grammet  er  kørt  vil  F  tasterne 
være  defineret  således; 

F1  Giver  en  ny  farve 
F2  Normal  larve 
F3  Repeat  af  alle  taster 
F4  Normal  repetering 
F5  Udelukker  brug  af  RS  + 
RESTORE 

F6  Normal  R/S  +  RESTORE 
F7  List  stop 
F8  Normal  listning 
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1001  nat 


■  Holder  du  al  Tusind-og-en- 
nat.  hvor  lakirer  og  andet 
godtlolk  med  sans  lor  tilsløre¬ 
de  kvinder  og  llyvende  tæp¬ 
per  udgør  hovedpersonerne, 
■vil  du  uden  tvivl  kunne  lide 
Jinn  Genie  spillet  Ira  Micro- 
mega. 

Her  belinder  du  dig  i  den  fjer¬ 
ne  Orient,  hvor  du  skal  for¬ 
søge  at  nedkæmpe  en  gru¬ 
som  bande,  der  truer  med  at 
overtage  ledelsen  i  den  gyld¬ 
ne  by. 

Din  første  opgave  lyder  på  at 
eliminere  de  llyvende  djæv- 
le,  som  racer  rundt  om  dit 
flyvende  tæppe  og  forsøger 
at  gøre  det  af  med  dig. 

Når  du  først  frem  til  sultanens 
palads,  hedder  problemet  at 
finde  et  vindue,  der  kan  åb¬ 
nes.  Men  pas  på.  Vagterne  er 
årvågne,  og  de  kan  kun 
skræmmes  bort  for  en  tid  ved 
hjælp  af  alverdens  forban¬ 
delser. 

Inde  i  paladset  gælder  det 
om  at  få  tændt  alle  fakler  for 
at  skræmme  mørkets  væsner 


bort .  Har  du  fundet  den  magi¬ 
ske  krukke  og  befriet  den  go¬ 
de  hersker,  er  din  opgave  så¬ 
dan  set  klaret.  Du  har  reddet 
den  gyldne  by  mod  under¬ 
gang 

Forbryderne  fik  du  imidlertid 
ikke  has  på.  De  flygtede  lyn¬ 
hurtigt  til  næste  oaseby,  hvor 
du  så  kan  genoptage  be¬ 
kæmpelsen. 

Grafikken  i  Jinn  Genie  er 
meget  flot  og  usædvanlig  far¬ 
verig.  Micromega  har  ramt 
atmosfæren  fint,  og  spillet 
fængsler  brugeren  effektivt, 
når  han/hun  først  er  kommet 
i  gang. 

Kort  sagt,  Jinn  Genie  er  en 
udmærket  måde  at  undslip¬ 
pe  det  grå  og  kedelige  vinter¬ 
vejr  i  Danmark.  Tænd  for 
computeren  og  du  befinder 
dig  blandt  smukke,  mørklø- 
dede  og  mystiske  haremsda¬ 
mer.  (PCS).D 


Grafik: 

Lyd: 

Action: 

Spænding: 

Pris/kvalitet: 


■  Elite 's  nye  nit  i  England, 
Airwolf,  hører  til  den  store 
gruppe  af  spil,  hvor  du  skal 
flyve  en  helikopter  eller  et 
rumskib  enten  ude  i  rummet 
eller  dybt  under  jorden. 
Airwolf  foregår  under  jorden, 
men  er  så  afgjort  ikke  som  al¬ 
le  andre.  Elite  har  gjort  meget 
lor  at  gøre  spillet  bedre,  og 
det  er  da  også  lykkedes  gan¬ 
ske  godt.  Airwolf  bygger  i 
øvrigt  som  flere  andre  fra  Elite 
på  en  amerikansk  TV-serie. 
Som  pilot  i  den  ultradyre  heli¬ 


kopter  Airwolf  er  din  opgave 
at  befrie  5  vigtige  viden- 
skabsmænd,  der  holdes  fan¬ 
get  dybt  nede  under  Arizo- 
na's  svedne  ørken. 
Helikopteren  skal  trænge  ned 
gennem  et  kompliceret  for¬ 
svarsanlæg  ved  at  destruere 
en  række  kontrolbokse  pla¬ 
ceret  rundt  omkring  i  de  un¬ 
derjordiske  gange.  Hver 
gang  en  boks  skydes,  åbnes 
der  et  andet  sted  mulighed 
for  at  du  kan  trænge  videre 
ind  i  systemet.  Efter  en  lang 
og  krævende  flyvning  når  du 
ned  til  den  første  videnskabs- 
mænd,  der  -  ligesom  de  4 
andre  -  først  skal  bringes  sik- 


Break  feber 

■  Som  afveksling  for  de  man¬ 
ge  blodige  krigsspil  til  compu¬ 
tere,  er  det  ganske  afslap¬ 
pende,  når  der  ind  imellem 
kommer  danseprogrammer. 
Break  Dance  fra  Epyx  var  det 
første  spil  udi  de  nyeste  dan¬ 
setrin.  Den  netop  udsendte 


Break  Fever  fra  Interceptor 
følger  i  samme  spor.  men  er 
langt  fra  så  afvekslende  og 
udfordrende  som  forbilledet. 
Til  gengæld  er  lyden  og  mu¬ 
sikken  mere  breaked'  hos  In¬ 
terceptor. 

Grafikken  i  Break  Fever  er  su- 
perflot,  men  du  bliver  des¬ 
værre  hurtigt  træt  af  begiven¬ 
hederne.  Træt  bliver  din 


kert  hjem  til  basen,  tør  du  kan 
lortsætte  mod  den  næste 
mand  i  rækken. 

Undervejs  på  din  farefulde 
redningsmission  møder  du 
bl.a.  hidsige  lasere,  kanoner, 
mure  som  skal  nedskydes,  før 
de  automatisk  fornyes,  farlige 
radarer  og  sågar  en  UFO-lig- 
nende  tingest. 

Alrwolf  kan  i  starten  virke 
meget  svært  og  kedeligt.  Vi 
kan  dog  roligt  betro  læserne, 
at  det  sandelig  ændres,  så 
snart  de  første  forhindringer 
overvindes.  Bare  vær  lidt  tål¬ 
modig.  Grafikken  er  flot 
(modsat  lyden),  hvilket  lige¬ 
frem  får  spilleren  til  at  sidde 
tryllebundet  ved  skærmen, 
bare  for  at  komme  til  at  se  det 
næste  skærmbillede  i  syste¬ 
met. 

Det  er  da  heller  ikke  uden 
grund,  at  Airwolf  meget  hur¬ 
tig  er  gået  til  tops  på  de  en¬ 
gelske  hit-lister.  Godt  gjort.  Eli¬ 
te!  (microdealer  &  PCS) 

Grafik:  10 

LYd:  8&  li  8 

Betjening:  8 

Action:  Efil  10 

Pris/kvalitet:  jg 


■  River  Raid  fra  Activision 
giver  ikke  helt  samme  tota¬ 
ludnyttelse  af  64'erens  lyd  og 
grafik,  som  vi  ellers  er  for¬ 
vænt  med  fra  Activisions  si¬ 
de.  Spillet  er  dog  spændende 
nok,  fordi  det  formidler  en 
helt  særegen  atmosfære. 
Som  pilot  i  en  angrebsjager 
skal  du  suse  langs  flodbred¬ 
den  i  lav  højde  for  at  undgå 
fjendtlig  radar  ,  Undervejs  ren¬ 
der  du  ustandseligt  ind  i  for¬ 
hindringer.  Det  kan  være 
spærreballoner,  der  er  kom¬ 
met  ud  al  kurs,  krydsende  tor¬ 


pedobåde,  kanonkugler  el¬ 
ler  modstanderens  overvåg¬ 
ningsfly. 

Din  vigtigste  opgave  er  at  af¬ 
skære  fjendens  forsynings¬ 
tropper,  der  befinder  sig  på 
den  ene  flodbred.  Den  bedste 
måde  at  gøre  det  på  er  at 
smadre  alle  broer,  du  møder. 
Men  det  kræver  både  omhu, 
thi  broerne  er  af  forskellig 
konstruktion  og  højde,  og  på¬ 
passelighed,  fordi  dit  jagerfly 
råder  over  en  begrænset 
mængde  brændstof. 
Optankning  kan  ske  fra  forsy- 


ninasnunkter  undervejs.  De 
markeres  automatisk  på 
landskabet,  der  ses  ovenpå 
gennem  hele  River  Raid. 

Spillet  er  som  helhed  accep¬ 
tabelt,  men  vi  savner  spæn¬ 
ding  og  afveksling.  (CBS).D 
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breakdancer  på  skærmen 
også,  og  så  falder  han  sam¬ 
men  som  en  gammel  klud. 
Hvilket  får  computeren  til  at 
kommentere  "You  is  Bad 
News' '  i  bedste  Brooklyn-dia- 
lekt. 

I  Break  Fever  kan  du  stille  op 
i  forskellige  discipliner.  Hvis 
du  ikke  kender  betegnelser¬ 
ne  i  forvejen,  lærer  du  dem 
hurtigt:  Turtie,  Backspin  og  til 
sidst  Space  Shuttle,  hvor  du 
skal  få  danseren  til  at  dreje 
rundt  på  én  finger.  En  ret  så 
vanskelig  opgave,  der  kræ¬ 
ver  fuldstændig  kontrol  over 
joysticket. 

Som  nævnt  er  lydsiden  lin-fin, 
og  Interceptor  har  haft  den 
gode  idé  at  lægge  sound¬ 
tracket  på  den  anden  side  af 
kassettebåndet.  Det  kan  du 
så  bruge,  hvis  du  skal  holde 
fest,  -  eller  måske  træne  selv 
i  breakdance.  (Twilight).D 


Grafik: 

Lyd: 

Action: 

Spænding: 

Pris/kvalitet: 


Pas  på 
sidevind 

■  Hvis  du  kunne  lide  Tornado 
Low  Level  vil  du  elske  Cyclo- 
ne.  Fra  det  øjeblik,  du  starter 
spillet,  vil  du  kunne  se,  at  det 
ligner  sin  forgænger  meget. 
Denne  gang  hærges  en  lille 
øgruppe  af  en  voldsom  cy- 
clon,  og  din  opgave  er  at 
samle  medicinkasser  og  red¬ 
de  de  nødstedte,  der  vinker  til 
dig  fra  en  bakketop. 
Grafikken  er  -  hvor  utroligt 
det  end  lyder  -  endnu  bedre 
end  i  berømte  TLL.  Bl.a.  er 
kortet  blevet  betydeligt  større, 
så  nu  tager  det  over  et  minut 
at  flyve  igennem  fra  nord  til 
syd. 

Cyclone  har  14  øer  ialt,  og  på 
6  af  dem  er  der  baser,  hvor 
du  kan  få  fyldt  tanken  op.  Det 
vigtigste  mål  er  at  finde  alle  5 
medicinkasser,  men  for  at  få 
extra  points  skal  du  manøvre¬ 
re  hen  over  flygtningene  og 
hejse  dem  op  i  sikkerhed. 
Hold  endelig  godt  øje  med 
vindmåleren.  Hvis  du  kom¬ 


mer  for  tæt  på  cyclonens 
centrum,  bliver  helikopteren 
kastet  hid  og  did  af  de  krafti¬ 
ge  vindstød. 

Da  medicinkasserne  tit  gem¬ 
mer  sig  bag  en  skrænt  eller  et 
hus  er  det  nødvendigt  at  skif¬ 
te  frem  og  tilbage  mellem  2 
forskellige  synsvinkler  for  ikke 
at  overse  noget. 


I  VIE  ti  1 
HOR  THI 


Alt  i  alt  er  Cyclone  et  af  de 
bedste  på  markedet  og  bør 
findes  i  enhver  ægte  spille¬ 
narkomans  samling.  (Twi- 
lighO.D 

Grafik:  - m  1 1 

Lyd:  Sum  j  9 

Action:  _  9 

Spænding:  commo  q  1 1 

Pris/kvalitet:  44  1  1 1 


Jagt  langs 
flodlejet 
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Livagtig 

fodbold 

■  Ocean  Software  er  kendt 
for  at  lave  gode  programmer, 
og  det  seneste  skud  på  stam¬ 
men  er  ingen  undtagelse 
Navnet  er  Match  Day  og  spil¬ 
let  placerer  sig  i  kategorien 
sportsspil,  nærmere  betegnet 
fodboldspil. 

Match  Day  ligner  meget  "In¬ 
ternational  Soccer"  til  Com- 
modore  64,  som  regnes  for  et 
af  de  bedste  fodboldspil  til 
hjemmecomputere.  Faktisk 
er  Match  Day  næsten  lige  så 
godt  som  dette,  bortset  fra 
grafikken,  selvfølgelig. 


Amstrad 

Adventure 

■  Andromeda  fra  Interceptor 
er  et  ganske  vellykket  Ad¬ 
venturespil  tO  Amstrad.  SpUlet 
fylder  ca.  40K,  hvOket  natur¬ 
ligt  begrænser  det  ordforråd, 
maskinen  reagerer  på.  Derfor 
vil  spilleren  i  starten  opleve 
svaret  "kender  ikke..." 
gang  på  gang.  Fortvivl  dog 
ikke.  Efter  lidt  øvelse  kommer 
Andromedas  kvaliteter  tO  fuld 
udfoldelse. 

I  starten  af  spillet  befinder 
man  sig  på  patrulje  et  sted 
ude  i  universet.  En  radionød- 
melding  indløber  på  rumfar¬ 
tøjets  modtager,  og  nu  gæl¬ 
der  det  om  at  finde  de  nød¬ 
stedte. 

Andromeda  hører  til  den  ny¬ 
este  type  Adventure  spU.  hvor 
der  også  indgår  grafik.  Nogle 
af  de  mystiske  rum  er  udeluk¬ 
kende  beskrevet  med  ord. 


I 


Ocean  har  indbygget  mange 
faciliteter  i  programmet.  Du 
kan  vælge,  om  du  spiller 
mod  computeren  (i  så  fald  tre 
sværhedsgrader),  mod  en 
kammerat  eller  du  kan  end¬ 
da  lade  computeren  spOle 
mod  sig  selv(!).  Ligeledes  er 
det  muligt  at  skifte  spilletid, 
holdenes  farver  og  meget  an¬ 
det.  En  sjov  detalje  er,  at  du 
sammen  med  flere  kamme¬ 
rater  kan  spille  i  en  cuptume- 
ring  med  egne  selvopfundne 
holdnavne. 

Når  alt  det  ønskede  er  valgt 
via  menuerne,  kan  kampen 
begynde.  Først  ses  i  bedste  In¬ 
ternational  Soccer-stil  spiller¬ 
ne  komme  ind  på  banen  for 


mens  landingspladsen  er  teg¬ 
net  meget  flot  i  farver  på 
skærmen. 

Hele  den  væsentlige  del  af 
handlingen  foregår  i  et 
uoverskueligt  bygningskom¬ 
pleks,  hvor  man  skal  søge  ef¬ 
ter  de  folk,  der  udsendte  nød¬ 
signalerne.  Er  man  på  et  tids¬ 
punkt  nødt  til  at  afbryde  spil¬ 
let,  kan  man  "save"  sin  posi¬ 
tion  og  status.  -  og  starte  fra 
samme  punkt,  når  man  må¬ 
ske  senere  får  lyst  og  energi 
igen. 

Andromeda  hører  måske  ik¬ 
ke  til  verdens  mest  spænden¬ 
de  Adventurespil,  men  pro¬ 
grammet  er  udmærket  gen¬ 
nemforklaret.  Både  voksne 
og  børn  kan  lære  nyt,  når  de 
skal  kommunikere  på  en¬ 
gelsk  med  computeren. □ 


Grafik: 

Betjening: 

Spænding: 

Pris/kvalitet: 


at  tage  opstilling  på  deres 
pladser.  Banen  ses  i  samme 
perspektiv  som  i  fodboldkam¬ 
pene  i  fjernsynet  -  dvs.  med 
tredimensionelle  virkninger. 
På  den  modsatte  banelæng¬ 
de  ses  en  række  tilskuerplad¬ 
ser,  mens  der  oppe  i  højre 
hjørne  findes  ur,  Holdenes 
navne  og  kampens  stilling 
kan  desuden  ses  nederst  på 
skærmen.  Spillerne  virker  ri¬ 
melig  livagtige,  selv  om  de 
dog  er  lidt  små,  og  bolden 
giver  også  en  skygge  på  den 
grønne  græsplæne.  Alt  i  alt 
er  grafikken  altså  fin. 

Det  samme  gælder  compute¬ 
rens  spil,  når  dén  udfordres. 


Spændende 

rumspil 

På  omslaget  til  Black  Star  står, 
at  det  ikke  er  »bare  et  nyt 
rumspil«,  og  med  vanlig 
skepsis  var  vores  første  tanke 
-  den  er  god  med  jer!  Men 
nej  Black  Star  er  anderle¬ 
des,  ideen  er  fin,  programmet 
hurtigt,  grafikken  overbevi¬ 
sende,  lyden  flot  og  betjenin¬ 
gen  god.  Her  har  program¬ 
møren  ikke  givet  sit  program 
frit,  før  det  var  helt  færdigt. 
Du  befinder  dig  i  en  galakse, 
som  du  kan  få  en  plan  over, 
ved  at  trykke  på  en  tast,  Du 
starter  i  et  let  forsvaret  områ¬ 
der,  (samt  de  militære),  og 
flyver  omkring,  Mod  dig  kom¬ 
mer  planeter  og  firkanter. 
Hvis  du  flyver  ind  i  en  planet, 
skifter  billedet,  og  du  befinder 
sig  nu  flyvende  henover  pla¬ 
netens  overflade.  Ved  hjælp 
af  et  nyt  kort,  kan  du  finde 


Positionsspillet  er  helt  i  orden, 
og  det  ligner  i  det  store  hele 
en  rigtig  fodboldkamp  Dog 
skal  det  lige  nævnes,  at  spil¬ 
lerne  efter  vores  mening  er 
noget  sløve  i  bevægelsen.  De 
traver  nærmest. 

Vi  kan  alligevel  kun  sige,  at 
Match  Day  må  virke  meget 
attraktivt  på  enhver  fodbold- 
og  computerfan,  f.eks.  som 
en  lille  opkvikker  i  de  lange 
perioder  uden  fodbold  i  fjern¬ 
synet.  .  .  .  (microdealer) 


Grafik: 

Lyd: 

Action: 

Betjening: 

Pris/kvalitet: 


planetens  forsvarscenter,  og 
bekrige  det.  Resultatet  kan 
blive  at  du  befrier  planeten. 
Firkanterne  kommer  i  grup¬ 
per  på  fire.  Afhængig  af  hvil¬ 
ken  du  flyver  igennem,  vil  du 
flytte  dig  rundt  i  galaksen.  Er 
du  kommet  gennem  firkan¬ 
ten,  viser  en  tunnel  sig.  Den 
skal  du  igennem  uden  pro¬ 
blemer,  for  at  det  lykkes  dig 
at  skifte  position  i  galaksen. 
Og  det  er  svært  for  tunellen 
snor  sig  i  alle  retninger. 

Til  slut  et  kort  ord  om  instrukti¬ 
onen:  Du  kan  få  følgende 
hjælp  i  begyndelsen  af  spil¬ 
let:  »Hvis  det  rør  sig,  så  skyd 
det.  Hvis  ikke,  så  skyd  det  al¬ 
ligevel.  Er  det  firkantet,  så  flyv 
igennem,  og  er  du  i  tvivl,  så 
læs  instruktionshæftet!« 

Grafik:  !■>  10 

Lyd:  SPtc- 

Betjening:  q  8 

Action:  —  -——I  1 1 

Fængslende:  1 1 

Pris/kvalitet:  10 


++  8  Soft  Special 


Legetøj,  der 
er  farligt 

■  Jeg  mener  ikke  at  kunne 
huske,  at  mit  gamle  legetøj 
hjemme  på  tørstesalen  var 
decideret  tarligt  at  omgås. 
OK.  dampmaskinen  kunne 
da  springe  i  lutten  og  bolden 
tra  fodboldspillet  ryge  med  et 
brag  op  i  synet  på  én,  men  at 
dukkerne  skulle  være  ond¬ 
sindede  og  de  grillstegte  kyl¬ 
linger  aggressive.  Dét  opleve¬ 
de  jeg  tørst,  da  Toy  Bizarre  fra 
Activision  blev  kørt  ind  på 
min  computer. 

Spillet  er  mildest  talt  bizart.  Du 
betinder  dig  nemlig  på  en 


fortryllet  legetøjstabrik.  hvor 
du  render  ind  i  et  mareridt, 
når  kyllinger  begynder  at 
vrimle  ud  af  gule  balloner.  Så 
gælder  det  om  at  tå  benene 
på  nakken  og  ellers  undgå 
Hetty  Hilda,  der  absolut  ikke 
lever  op  til  navnet  sødt  duk¬ 
kebarn 

Din  eneste  måde  at  overleve 
i  Toy  Bizarre  er  at  udrydde 
balloner  og  kyllinger  så  hur¬ 
tigt  som  muligt.  Du  må  afven¬ 
te  det  helt  rigtige  tidspunkt,  så 
kyllingerne  ikke  bliver  stegt 
møre  på  panden.  Ellers  bliver 
de  helt  umuligt  at  omgås. 
Hetty  Hilda  er  jokeren  i  spillet. 
Hun  er  drillesyg  som  bare 
F  Hun  har  det  bl.a.  med 


at  tænde  tor  alle  kontakter, 
så  maskineriet  går  helt  plan¬ 
løst  i  gang.  Altså,  -  sørg  tor  at 
lå  hende  sendt  op  i  legetøjs¬ 
himlen  så  kvikt  som  muligt. 
Grafikken  i  Toy  Bizarre  er  an¬ 
derledes  end  sædvanligt, 
men  på  sin  vis  meget  fascine¬ 
rende.  Lyden  følger  Activisi- 
ons  sædvanligt  gennemar¬ 
bejdede  linie.  Ja  og  handlin¬ 
gen:  Den  er  bare  noget  helt 
for  sig  selv.  (CBS).LJ 


Grafik: 

Lyd: 

Action: 
Spænding: 
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*  j.  * 

LEUEL  2 


SCORE:  HIGH:  CGHUS 

CGOKIO  OO 11  to  «*o 

THE  PITS  OP  PRItlEUftL  SLlflE 


Moderne 
love  story 

■  I  Mutant  Monty  fra  Artic 
kommer  du  ud  for  den  næ¬ 
sten  klassiske  opgave  at  red¬ 
de  den  smukke  og  letsindige 
heltinde.  Men  som  sædvan¬ 
ligt  kræver  det  sin  mand  at 
opnå  den  eftertragtede  helte¬ 
titel.  Din  fornemste  opgave  er 
nemlig  at  finde  rundt  i  40 
rum,  der  hver  for  sig  rummer 
de  forunderligste  eventyr. 

I  hvert  rum  ligger  fem-seks 
poser  guld,  som  du  er  nødt  til 


at  slæbe  med,  indtil  du  finder 
din  skønjomfru.  Ellers  har  I 
nemlig  ikke  nogen  startkapi¬ 
tal,  hvis  1  skulle  undslippe 
borgens  dystre  mure. 

Vi  befinder  os  jo  i  det  20.  år¬ 
hundrede,  og  så  indbygger 
man  selvfølgelig  ikke  gam¬ 
meldags  riddere  eller  trold- 
mænd  i  et  moderne  spil.  Nej, 
vores  ven  Monty  skal  klare 
helt  anderledes  skær.  F.eks. 
skal  han  passe  acceleratoren 
i  et  atomkraftværk  og  forsøge 
at  kæmpe  sig  igennem  et 
helvedesrum  med  en  slimet 


væske  på  alle  sider. 
Grafikken  i  Mutant  Monty 

vælter  ikke  en  garvet  spilan¬ 
melder  af  stolen.  Lyden  er 
heller  ikke  at  råbe  hurra  for. 
Faktisk  synes  vi,  at  den  var  di¬ 
rekte  enerverende  efter  en  ti¬ 
mes  spil.  Men  OK,  spilideen 
og  variationen  er  udmærket  i 
Mutant  Monty.  (pcs)D 

Grafik:  9 

LYd  CQMM  fl  ® 

Action:  °S?  5|  9 

Spænding:  -  10 

Pris/kvalitet:  9 


Skraldemand 
alene  i 
verden 

■  Skraldemænd  lever  livet 
farligt.  De  skal  konstant  passe 
på  kantsten,  glubske  hunde, 
løbske  biler  og  bananskræl¬ 
ler.  Men  det  er  intet  imod  de 
farer,  du  kan  komme  ud  for, 
når  du  efter  lang  og  tro  tjene¬ 
ste  udnævnes  til  '  'overskral¬ 
demand". 

Det  er  netop,  hvad  der  sker  i 
det  nye  Spectmm-spil  Travel 
with  Trashman.  Det  skal  aflø¬ 
se  den  nok  så  velkendte 
Trashman,  som  længe  lå  højt 
på  hitlisterne  i  England  og 
Danmark. 

Forhistorien  er,  at  vor  helt 
skraldemanden  har  vist  sig  så 
dygtig  i  sit  lokaldistrikt,  at  han 
nu  får  til  opgave  at  rense  he¬ 
le  verden  for  affald  Det  giver 
ham  naturligvis  fine  chancer 
til  at  se  spændende  og  frem¬ 
mede  byer  som  turist,  men 
hans  foresatte  er  mere  snedi¬ 
ge  end  han.  Skraldemanden 
skal  nemlig  selv  betale  sine 
rejseudgifter  ved  at  samle 
skrald.  Ellers  kommer  han 
aldrig  videre  til  næste  turist¬ 
mål. 

Vores  skraldemand  kommer 
vidt  omkring  i  Travel  with 
Trashman.  Han  besøger 
Moskva,  Paris,  Jerusalem, 
Hong  Kong,  Madrid  og  en 
række  eksotiske  småbyer, 
hvor  affaldet  består  af  under¬ 
lige  ting  og  sager. 

Travel  with  Trashman  rum¬ 
mer  som  sin  forgænger  man¬ 
ge  flotte  billedvirkninger  i  3-D. 
Undervejs  kommer  der 
ustandseligt  jokes  og  kvikke 
bemærkninger,  og  lydsiden 
må  i  det  hele  taget  betragtes 
som  forbilledlig.  En  af  spillets 
flotteste  grafikker  er  et  ver¬ 
denskort,  hvor  man  selv  kan 
se  lille  Danmark. 

Travel  with  Trashman  er  helt 
i  klasse  med  de  bedste  arka¬ 
despil.  Det  kræver  sin  mand 
at  klare  opgaverne.  Ellers 
bliver  du  stanget,  deporteret, 
kørt  ned,  skambidt  eller  får 
alle  tiders  skideballe  ned 
over  hovedet.  (Twilight).D 

Grafik:  1 1 

Lyd:  II  10 

Action:  Sum  9  10 

Spænding:  ■  ■  — m  i  o 
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Gamblermania 


■  Dine  hænder  ryster.  Hjertet 
banker.  Koldsveden  bryder 
trem.  Hænderne  søger  fe¬ 
brilsk  i  lommerne  efter  den 
næste  smøg.  Den  må  være 
der  et  eller  andet  sted.  Du  fø¬ 
ler,  at  alle  andre  kigger  på 
dig.  Stirrende  øjne  i  spillebu¬ 
lens  røgfyldte  tusmørke.  Du  er 
grebet  al  manien. 

Med  et  spjæt  vågner  du  op. 
Det  er  bælgmørkt  omkring 
dig.  Vækkeuret  tikker  ufortrø¬ 
dent,  og  du  er  badet  i  sved. 
Du  kan  ikke  sove  mere.  Ma¬ 
nien  har  grebet  dig,  og  du 
styrter  tværs  over  det  kolde 
gulv.  Hen  til  din  Commodore 
64. 

Start  maskinen  og  et  øjeblik 
efter  lyset  jackpot-spillet  op 
på  skærmen.  Heldigvis  har 
Bally  ikke  levet  forgæves.  Det 
er  den  eneste  måde,  du  kan 
kurere  din  "gambler-mani" 
på. 

Programmet  har  med  sine  10 
sprites  og  meget  flotte  grafik 
gjort  dig  afhængig.  Prøv  selv, 
hvis  du  tør ...  □ 

Steffen  Biåunei 
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9  Q0SUB300 

10  POKE36 ,8 1 »P0KE39, 128 « P0KE32 ,6 1« P0KE3 I , 128 
20  FORX  -OT062 1  REAOA  i  POKEX ♦  1 9744  ,8  « 1«XT 

30  FORK »0T062  s  REAOA « POKEX ♦ 1 9808 , A «  NEXT 
40  FORX -0T062  »  READA i POKEX ♦ 1 9872 , A »  tCXT 
90  F0RX-0T062  »  REAOA s  POKEX« 1 9936 . A i NEXT 
60  FORX  «0T062  « REAOA  s  POKEX ♦ 1 6000 , A i  KCXT 
70  FORX »0T062« REAOA »POKEX« 16064 . A  »  NEXT 
80  FORX-OT062* REAOA s POKEX« 16 128 . A s KCXT 
90  F0RX-0T062« REAOA s POKEX« 16192 ,A»I«XT 
I OO  FORX “0T062 «  READA « POKEX ♦ 1 6296 , A  » fCXT 
1 10  FORX  «0T062»  REAOA  i  POKEX  «1 6320,  A«|sCXT 
120  V-93248»P0KEV«37.0»POKEV«38, 1 
130  FORX«  1  TO  10  » S<  X  >  «X«243 « f^XT 
140  FORX ■ 1TO 10 » READA l F<  X ) «A » KCXT 
190  DlfHK  29)  tOir*42<  29  >  »OIt*43<  29  > 

160  FORX« 1 T029 » REAOH 1 <  X  > ,H2<  X ) ,H3< X  >  » KCXT 

170  M1X-I  »M2»  I  IH3V.-1  »POKEV«37,0»POKEV«3B,  1  »G« 1 »LY«0 

180  GOTO  1000 

199  REM  •••  KIRSEBAER  Ml 

200  DATAO , 16,0,0,16,0,0,16,0,0,16,0.0,84,0,0,84,0,0,69,0,0,69,0,1,69,64,1 
202  0ATA0.64 , 1 .0,80,9,0, 16,4 , O, 16,8,0,32,42,0, 168, 170, 130, 170, 170, 130, 170. 170 
204  DATA  130, 170, 170, I  30 , 1 70 ,42 ,0 , 168 ,8 ,0 ,32 

209  REM  •  «•  APPELSIN  ••• 

210  OATAO, O, O, O, O, O, O, O, O, O, 84, O, 2, 194 ,0,10,170,128,10,170,160,10,170,160,42,170 
212  DATA  168, 42, 170,168.42,170,168,42,170,168,42,170,168,42,170,168,10,170, 160,10 
214  OATA 170, 160,2, 170,128,0,170,0,0.0,0,0,0,0,0.0,0 

219  REM  •  •*  BLOffC 

220  OATAO, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 

222  0ATA2, 170. 128 , 10, 170, 160,42 , 170, 168, 170, 170, 170, 170, 170, 170.  170, 170, 170, 170 

223  DATA 170, 168 

224  0ATA42 , 170,160,10,170,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

229  REM*« I  KLOKKE  *•• 

230  OATAO, O, O, O, O ,0,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0 


232 

234 

239 

240 
242 
244 
249 
290 
292 
294 

299 
260 
262 
264 

269 

270 
272 
274 
60 

279 

280 
282 
284 

289 

290 

292 

293 

294 

300 
310 
320 
330 
340 
390 


OATAO, 40. O, O, 40, O, O, 170,0,0, 170,0,0,170,0,0,170,0,2,170, 128 
OATA 10, 170.160,10,170,160,42,170,168,42,170,168,0,0,0,0,0,0,0.0,0 

REM«**  CBM  ••• 

DATA40.0.0, 130,0,0, 128 ,0 ,0 . 128 ,0 ,0 . 1 28 ,0 ,0 , 1 30 ,0 ,0 ,40 ,0 ,0 
OATA2. 160.0.2,8,0,2,8,0,2, 160,0,2,8.0,2,8,0,2,160,0 
OATAO, 2, 2. O, 2, 138,0.2,34,0,2,2,0,2.2,0,2,2,0,2,2 

REM  •••  C«  ••• 

OATAO, O, O, O, O, O, O, O, O, O, O, O, 9, 80, O, 21 ,80,0,89,80,0,84,9,80,80,9,64,80 

0ATA9, O, 80, O, O, 80, 9, O, 80. 9. 64, 84 ,9.80 

0ATA89 , 80 ,0,21 ,80,0,9,80,0,0,0,0,0,0,0,0,0,0,0,0,0 

REM  •••  KLOVER  •»• 

OATAO, 40, O, O, 170, O, 2, 170, 128,2, 170, 128,2, 170, 128,8, 170,32,42,40, 168 

DATA  170, 170,170.170,170.170,170,170,170,170,170,170,42,40. 168,0,40,0,0,40,0 

OATAO, 40, O, O, 170,0,10,170,160,42,170,168,0,0,0,0,0,0,0,0,0 

REM  •••  COf'K’UTER  ••• 

OATAO, O, O, 42, 170,168,32,0,184,32,0,168,32,192,184,39,12,168.39,0,184 

0ATA39 , 12,168,32.192,184,32,0.168,42,170, 168 ,0 ,20 .O ,0 ,20 ,0 .0 ,20 ,0 

DATAO, 89 ,0,10,170,170,11,187, 186,42,170,170,46,238,232, 170,170,160,170,170,1 


REM  *•«  JOYSTICK  ••* 

DATA9 ,64 ,0 , 1,160,0,0,100,0,0,84,0.1,84,0,1,84.0.0,84,0 
OATAO ,84 ,0,1,84,0,1 ,84 ,0 ,0 ,84 , O .0 ,84 ,0 , 1 , 84 ,0 , 1 , 84 ,0 
OATAO, 80, O, O, 80, O, O, 80, O, 21 ,89,84,29,89,84,21,89,84,9,0.80 

REM  **•  BAR  ••• 

OATAO, 0,0, 0,0, 0,0, O, O, O, 0,0,21 ,89,89,21 ,89 ,89,41,106,106 

0ATA38, 102, 102,38,102, 102 , 38 , 102 , 102 ,4  I , 102 . 106 ,4 1 , 106,109,38,102,102,38,102 
OATA 102 

0ATA38 ,102,102,41,102, 102 ,21,89.89,21,89,89,0,0,0,0,0,0,0,0,0 
POKE33281  ,  I2«P0KE33280,0»PRINT*,J«  OOOO  OOO  O  O  O  O 

PRINT*  OOOOO  O  O  O 

PRINT*  OOOOO  O  O  O 

PRINT*  OOOOO  O  OO 

PRINT*  OOOO  OOOOO  O  O  O 

PRINT*  OOOOO  O  O 


10  Soft  Special 


360  PRIhfT*  OOOOO  O  O  “I 

370  PR  I  NT*  OOOOO  O  O  “I 

360  PRINT*  OOOO  O  O  OOOOO  OOOOO  O 

383  REM  t  t  SM  JFT/VJ 
390  PR  INT*BH*SPC(  I9)*4F* 

400  PR  I  NT  *B"SPC<  83  >CHR*<  34  > 

410  PR INTSPC<  13 > "STEFFEN  BRftUNER * 

420  PR  1  NT  "  mMMSMCS  8 i  S I  P  DATA  I  rC . *  «  RETURN 

899  REM*«*  SPRITE  FARVER  ••• 

900  0ATA2,8,4,7,0,0,3,9,7,7 

909  REM**  DATA  FOR  HJULER ••• 

910  0ATA246 , 23 1 ,246 ,233 ,249 ,249 ,233 ,246 ,233 ,830 ,232 ,246 

913  OATA246, 233, 247, 249, 230, 233. 232, 23  I ,232,231 ,247,231 ,234 ,231,248 

920  OATA248 ,233,234 ,23  I  ,246,246,247,248,247 ,246 ,233 ,232 

923  OATA248.247 ,231 .231 .246 ,249 ,247 ,249 ,233 ,232 ,232 ,246 

930  DA TA234 ,248,230,247,230,233.231 .248,248,249,231 ,234 

933  OATA233 ,247 ,247 ,246 ,249 ,230 ,248,246 ,246 ,230 ,234 ,248 

1000  PR  I  NT  ;  REM  37  •  CRSR  DOW 

1010  PRINT*  BALLY  ER  EN  ENARfCT  TYVEKNAEGT  OER  ER  * 

1020  PRINT*  FLYTTET  INO  I  COl^UTEREN.  * 

1030  PRINT*  DU  STARTER  f«0  EN  KAPITAL  PAA  30  KR.* 

1040  PRINT*  HVERT  TRAEK  KOSTER  I  KR.,  (RETURN).* 

1030  PRINT*  HJULENE  KAN  HOLDES  fCO  F1.F3.F3.* 

1060  PRINT-JBB-TAB(  12  >  *OEV  1NSTL  ISTE  «* 

1070  PRINT*BAR* , *BAR* , *8AR* , *  200  KR.* 

1080  PR  I  NT "QJOYST ICK  * , * JOYST ICK  * , *  JOYST I CK  * , *  130  KR.* 

1090  PRINT*d:OMPUTER*.*CO»^»UTER*,*COr>F»UTER*,*  lOO  KR.* 

I lOO  PRINT*0(LOVER* , ’KLOVER* , 'KLOVER* . *  30  KR.* 

I  1  10  PRINT'OLOKKE"  , 'KLOKKE*  , 'KLOKKE/BAR  18  KR.* 

1120  PR  INT*CTLOMME  *  ,  *BLOMPt  *  ,  ‘BLOl’T'C/BAR  14  KR.* 

1 130  PRINT  "Q^PPELS IN* . 'APPELSIN* , 'APPELS  IN/BAR  10  KR.* 

1140  PR INT"0(  IRSEBAER * . *K IRSEBAER  * , *K IRSEBAER/8AR 10  KR.* 

1130  PRINT’Q - ", *K IRSEBAER* , *K IRSEBAER  3  KR.* 

I  160  PR  I  NT*  O - - *  ,  *K  IRSEBAER  2  KR.* 

1200  PRINT  *Cj:8M*  ,  *CBM*  ,  *C8M*  ,  *  20  KR.* 

1210  PR  I NT* O  EK6TRAGEV INST  I  NAESTE  20  RUNDER* 

1220  PR INT’HV IS  C-  ER  PAA  CENTERLINIEN.* 

1240  PRINT*  *  (RETURN)*** 

1300  WAIT197, 1 i POKE 198,0 

1310  PR  I  NT  *  »***<  NT  AL  DELTAGERE  <l-4>  *MIt#»UTD 
1320  IFO< OORO >40R0<  > INT< O )THEN13 10 

1330  FORX-  I  TOO  «  PR  INTX  *  .  SPILLERS  NAVN*  S  It#»UTNA*<  X  >  t  NA*  X  >  *LEFT*<  NA»<  X  >  ,8  )  I  P0<  X  >  ■ 
30 

1340  tCXT 

2000  PRINT'J*! IP0KE3328 I , I2IPOKE33280 ,0 

2010  PRINT***  ••••  •••  •  •  •  •  *| 

2020  PRINT**  •••••  •  ••  •; 

2030  PR  I  NT  *  *  ••••  •••••  •  •  •  *1 

2040  PRINT**  •••••  •  •  *| 

2030  PRINT**  ••••  •  •  •••••  •••••  •  * l  i  REM  SHIFT^O 

2060  FORX- I T03 SPRINT* *  *»:rCXT 

2070  PRINT**  ******  *1 

2080  PRINT**  ■  *«**»  “I 

2090  PRINT**  —  -  ■  -  ■  -»  •  j  i  REM  C  •  'O 

2093  PRINT**  -  *  I t  REM  MINUS 

2096  POKEV. »44 »POKEV* I , I  14 »POKEV *8, 1 76  s POKEV *3, l 14 »POKEV »4 ,208  s POKEV »3 , I  14 

2097  POKEV *2  I  ,7lP0KEV*28 , 7  s P0KE2040  ,H  l<  HIV.)  SP0KE204I  ,H2(  H2V1)  s  P0KE2042  ,H3<  H*X> 

2098  P0KEV»39  ,F(  HKHIX)  -243)  s  POKEV  »40,  F<  H2<  H2'/.> -243  ):  POKEV  «4  I  ,F<  H3<  H3V.)-245) 

2100  FORX- 1  TOS I PR  I NT * *  *»trCXT 

2110  PRINT-Cm  10  20  10  30  10  20  !0*|' 

2120  FORX  ■  I  TOO  s  PR  I  NT  *  JM'MAC  X  )  ,P0<  X  >  "  *«NEXT 

3000  FQRX  -  I  TOP  SPRINT*  — — — — —  "«AS<  X  )  *  **:POKE  19S.0 

3010  GETA*:  |FA*«CHR*<  I3>TMEN3090 

3011  IFO- ITHEN30IO 


“I  s  REM  C  •/'O 
*1  S  REM  MINUS 


IFAS-*B*ArOPEEK( 1 480 >  -  I 73THENPOKE 1480, 171 SSl-l IGOT030I0 
IFA*-  *■*  ANDPEEKC  1 480  )  •  1 7  I  THEr*>OKE  1 480 , 1 73  s  S  1  -O  I GOT030  1 0 
I FA*- *«* AfCPE  EK  <  1 484 ) • 1 7  I THENPOKE 1 484 , 1 73  s  S2 -O  s G0T030 1 0 
IFA*- *B*At©PEEK(  1484  > • 1 73THEKPOKE 1484, 171 IS2- 1 IG0T03010 
IFA«-*B*AtOPEEK(  1 488  > ■ I  7  3  THE  f*5  OK  E 1488, 171 IS3- I SG0T03010 
IFA*-*S*AKOPEEK(  1 488  )  -  1 7  1  THEt#»OKE  1 488 , 1 73  s  83-0  s  G0T030  10  S  REfT  1  ,F3,F3  tt 
G0T030 10 

P0<  X)-PO<  X>-1»  IFS1 - 10RS2- I0RS3- 1THENSB- I 

POKE 1480, 173 IPOKE 1484, 1 73 l POKE 1 488 , 1 73 

A1-INT(RM)<  I)  *3)  »10 

A2-  INT<  RND<  1  )  *3  )  *20 

A3-  INT<  RND<  I  )  *7  >  *30 

IFS I • 1 THENA4 -A 1 *4 

I FS2 ■ 1 THENA3 -A2 -4 

IFS3- ITHENA6-A3*4 

A4  -A4  ♦  1  I  !FA4<  -A  I  TUEN*  I  V.-H  1  X*  I  I  IFH  l%>23THEt*«IX-  1 
A3-A3*  I  i  IFA3<  -A2THEKM27.-H2*/.«  1  I  IFH2X >23THENH2V:-  1 
A6-A6 ♦  I  «  IFA6<  -A3THCI«43X-H3X«  I  i  IFH3X >23THEF*t3X-  1 
I FA6 > A3AKOA3 ) A2AN3A4  > A 1 THEN32 1 0 

POKEV *2 1 ,7 1 POKEV »28, 7  i POKEV , 1 44  i POKEV *2 , 1 76  i POKEV *4 ,208 1 POKEV ♦ 1 , I  14 
POKEV-3  ,  1  14  i  POKEV  *3  ,  I  14 

P0KE2040 ,H1<  H 1 X) i POKEV *39 ,F< Hl<  H1JO-843) 

P0KE204  1  ,H2<  H2X)  i  POKEV *40  ,F<  H2<  H27.) -243  ) 

POKE2042 ,H3(  H3X) i POKEV *4  I ,F<  H3<  H3X) -243 >  « G0T03 1 30 
S  1  -O  >S2-0 1  S3-0  lO'HKHIX.)  iU-H2<  H2*/. )  i  E -H3<  H3X) 

LY-LY- 1 • I FLY >OTHEN I FQ -23 1 ORW-23 1 ORE -23 1 THENG0SUB3000 
IFO -233AKOU-233AFOE -233THENGE -200  i PO<  X  > -P0(  X ) *200 1 GOT040O0 
I FO-234ANOW-234ANDE -234THENGE -  130 1 P0<  X ) -P0<  X ) ♦ 1 30 1 GOT04000 
IFQ -233AFOU-233AFOE -233THENGE ■ 1 OO  i P0<  X ) -P0<  X ) ♦ 1 00 1 G0T04000 
IFO-232AhOU-232AtOE -232THENGE -30  i P0<  X  > -P0<  X ) *30 1 OOTO4O0O 
IFO  -249AMHJ-249AKCX  E  -2490RE  -233  >THENGE  •  18  i  P0<  X  >  -P0<  X  >  ♦  18  t  GOT04000 
1FO-248AKOU-248ANOC  E -2480RE -233 ) THENGE - 1 4  I PO<  X > -P0< X > ♦ 1 4  I GOTO40O0 
IFO-247ANOU-247AtO<  E -2470RE -233 ) THENGE ■ 10 1 P0(  X ) -P0<  X > ♦ 10  i G0TO4OO0 
IF0-246AtdW-246AN0(  E -2460RE -233 ) THENGE - 10lP0<  X > -P0(  X > ♦ 10  i G0T040O0 
IFU-246ArsOE-246THENGE-3iPO<  X  ) -PO(  X  )  *3 1 G0T04000 
I FE -246THENGE -2  i P0<  X  > -P0<  X ) *2 1 G0T04000 

IFO -230AFCU-23OANDE -230 THENGE -20  i P0<  X ) -P0<  X ) *20 ILY-20 1 G0T04000 
G -O  i  PR  I  NT  *  aMNMMMMi'  s  FORY-  I  TOO  <  PR  I  NT  *]*1*NA*(  Y)  ,P0<  YJIFCXTY 
IFG-  ITHEN3440 

PRlNT*HHMMMMMHIi*TAe(  20)*  INGEN  GEV  INST** 

FORY- 1T0I300INEXTYI 

PR  I  NT  *  CMMMMMMMØMMMMO«  •  i  ) )  *  ** 

A4 -O  s  AS -O  :A6 -O  s  PR  I  NT  *<*■■■■■■■■■■■■■■■■■-  s  IFS8-  ITHENSB-OiG-  I 
KC  X  TX  s  GO  T02  1 20 

G- 1 1  pr  i nt  -  ■»— i— — — awm*nw»  tabc  20 )  *gev  inst  •  *ge  •** 

FORY-  1  TO  1300 1  tEXT 

PR  11^  '  MaMMMMMHMMI'  TA8(  20  )  *  «" 

G0T03440 

VS-  INT<  RfXK  1  >*7>  ♦  1 1  SV -33896 

IFVS- I THENPOKESV *4 , 2  i POKE SV *3 ,2  s  GE -20 s  FORU- I TO IOOO i  ttXT 

I FVS -2THEKf»OKESV  ♦  1 0 , 2  i  POKESV  *9 , 2  i  GE -20 1  FORU  ■  I  TO  1 300  i  t«XT 

IFVS-3THENP0KESV ♦ 14 , 2 « POKESV ♦ 13 , 2  i GE -  10 1 FORU- 1  TO  1300  i  tCXT 

IFVS -4THEr^0KESV ♦ 1 9 , 2  i POKESV  *20 , 2  i GE -30 1 FORU -  1  TO  1 300 1 NEXT 

I F VS -3THENPOKESV *24,21 POKESV *23 , 2  i GE -  I O I F ORU • l TO  1 300  s  KCXT 

IFVS  -6 THEt*»OK E SV  *29 , 2  i  POKE  SV  •  30 , 2 1  GE  -20 1  FORU  •  I  TO  1 300 1  f-CX T 

IFVS ■ 7THENP0KESV  *34 ,2  s POKESV *33 ,2  s GE • 10  i FORU- ITOlSOOltCXT 

POKESV  *4,01 POKESV  *3 , 0 1 POKESV  *9 , 0 1 POKESV  *10,01 POKESV  *14,01 POKESV  *13,0 

POKESV* I9,0s  POKESV *20  »O  i POKESV *24 ,0  t  POKE SV *23 ,0  »POKESV  *29 ,0  s  POKESV  *30 ,0 

POKESV  *34 , 0 1 POKE  S V ♦ 33 , 0 

PO(  X)-PO<  X)  *GE 

PRl^**MMMMMMMMHM'rA8(201‘CKSTRA  GE.  ■  *GE  *** 

FOR  J  •  I  TO  1 200  » tCXT  i  G  ■  1 

PRIT  4MNMHMHMMMMH  I  20)  *  * 

GE -O » RETURN 


»  IFSB- tTHENSB-0«G- 1 


I* TABC  20) ‘GEVINST  •  *GE  * 


Høj  skræk 


JLPi_n- - 

n-  /i 


-i  u _ — 


.-(Vfl/L-n/l/v 

d  ."i, 


■  Du  svæver  over  Manhat¬ 
tan  i  din  Helldiver  bombema¬ 
skine.  Dit  mål  er  at  nedskyde 
de  højeste  skyskrabere,  idet 
dine  arbejdsgivere  er  For¬ 
eningen  til  Bekæmpelse  at 
Højdeskræk. 

Det  gælder  om  at  bombe  de 
højeste  bygninger  tørst,  tordi 
dit  tly  konstant  taber  højde. 
Spillet  kører  både  på  en  16K 
og  en  48K  Spectrum. □ 

Christian  Bømler 


1  00  10  9900 

2  LET  h-100«  LET  hi-”auto  Pilot*n“«  BORDER  O«  FLASH  Ol  INK  O«  PAPER  5i  BRIGHT 
Oi  INVERSE  Ol  OVER  Os  CLOSE  ils  CLOSE  i2s  CLS 

5  LET  p-0«  LET  k-15 

10  CLS  »  LET  c-Os  LET  d-0«  LET  a- 1  s  LET  *-0 

11  PRINT  OT  20.01  PAPER  41" 

13  LET  w-0«  FOR  n-2  TO  29:  LET  q-INT  CRND*4)-k«  FOR  «-q  TO  20»  LET  w-w-1«  PRIN 
T  OT  *.  ni  INK  Ol  POPER  61 "C" l  NEXT  m>  NEXT  n 
20  LET  b-0 
99  00  SU*  9998 

100  PRINT  OT  «. bl"  "i  LET  b-b-1 

110  IF  b-32  THEN  LET  a-a-1/2«  LET  b-0 

120  PRINT  OT  a. bl"0“ 

121  IF  <INKEY*-"0"  OR  IN  31-16)  OND  *-0  THEN  LET  p-p-1«  LET  »-li  LET  c-INT  (*♦ 
1)1  LET  d-bi  PRINT  OT  c.d!"B‘ 

130  IF  »-0  THEN  00  TO  150 

131  IF  c-20  THEN  LET  *-0»  PAPER  Os  GO  SUB  9998:  PAPER  3«  PRINT  OT  c.  dl  POPER  4 
I"  "I  LET  c-INT  *i  LET  d-bt  00  TO  142 

140  PRINT  OT  c.  dl"  *«  LET  c-c*l  »  IF  OTTR  Cc.d)-48  THEN  FOR  O-C  TO  (C-t3)  s  BEEP 
.OOl.oi  LET  P-Ptl0i  PAPER  o-c»  00  SUB  99981  PAPER  3s  PRINT  OT  o,  dl"  “»  LET  h-w-1 
s  LET  m-2i  IF  o-20  THEN  LET  »-0 

141  IF  »-0  THEN  PRINT  OT  20, dl  PAPER  41"  " 

142  IF  »-2  THEN  LET  b— b*l  i  PRINT  OT  «.  b-ll"  O"  i  IF  b-32  TMEN  LET  *-a+U  LET  b 

-O 

143  IF  »-2  THEN  NEXT  ol  LET  b-INT  bi  LET  s-0 

144  IF  »<>0  THEN  PRINT  OT  c.  dl"B" 

150  IF  *-18.5  OND  b-30  THEN  PRINT  OT  l.Ot'OODT  GJORT" i  LET  o-ot2000i  GO  SUB  99 

98«  PRINT  •••"Tryk  o**  on  t**t  for  ny  b*n#“  i  FOR  n—  50  TO  50i  BEEP  .01,  ni  NEXT  n 

i  PAUSE  Oi  BEEP  .01.11  PAUSE  Ol  CLS  i  LET  k-k-1 1  LET  *-3i  IF  »*-0  THEN  INK  9i  LE 

T  p-p-2 i  FOR  n-1  TO  30i  BEEP  RND.nl  PAPER  RND-81  PRINT  OT  RND-20. RND-20l"B0NUS ' ' 
!-i  GO  SUB  9998 1  NEXT  nt  PAPER  5i  INK  O 

151  IF  »-3  THEN  00  SUB  9998i  FOR  n-1  TO  50t  BEEP  .01.RND-4I  NEXT  nt  GO  TO  10 
290  IF  OTTR  <*.bM)-48  TMEN  00  TO  1000 

300  00  TO  100 

1000  FOR  n-1  TO  20i  PRINT  OT  «.  bl"  O" i  BEEP  .1.21  PRINT  OT  *. b+ll  PAPER  61  INK  2 
I "C"i  BEEP  .1, H  NEXT  n 

1100  IF  k<p  THEN  PRINT  "Du  s l o«  r*kord#n"i  INPUT  “DIT  NOVN  ?  "I hi«  LET  h-o« 

1200  PRINT  hil"  H*r  r*kord#n" 

1300  FOR  *-50  TO  -50i  BEEP  .01. ■«  NEXT  ■■  PRINT  “Tryk"i  PAUSE  Ol  BEEP  .1,0«  PRIN 
T  *P«*“i  PAUSE  O«  BEEP  .1.30«  PRINT  “En  t**t“i  PAUSE  Oi  BEEP  . 1.60i  GO  TO  3 
6000  LET  o-O l  FOR  n-1  TO  21  l  FOR  *-0  TO  31 1  IR  OTTR  Cn,  *)-48  THEN  LET  o«oM 
t  6001  NEXT  ■«  NEXT  ni  PRINT  oi  STOP 

I  9900  PAPER  5i  BORDER  Oi  INK  O«  INUER8E  O«  FLASH  Oi  CLS  i  RESTORE  t  FOR  n-USR 
TO  6S39H  READ  *i  POKE  n.*i  NEXT  n 

9910  PRINT  TAB  10 1  PAPER  3l  INK  7l"By  Bo«b*r#ni"'  INK  Ol  PAPER  5l“I  d*tt*  »Pil  • 
r  du  *n  bombtPi iotP<i  *n  Flyv*riA  i  **r*t  1917,  d*r  »k*l  ud»l**tt*  *n  by  M*d 
notit  »tor*  jitrnkut  i*r  iB.  »o«  du  »mid*r  n*d  ov*r  hu»*n*i‘t  PAPER  61 "C" I 

POPER  3l"»**  ov*r*t*«*rn*  «*«r  l*tykk*r  "I  PAPER  6l"C"l  PAPER  5 
9920  PRINT  “Du  f**r  1  point  for  at  ud l O**  “I  POPER  61 "C" I  PAPER  51 "*n  bomb*  o» 
“I  PAPER  61 "C" I  PAPER  5l"10  Point*  for  hv*r  *ta»*  du  "1  PA 
PER  6l"C"t  POPER  Si " ra***r  («*m.  4)" 

9930  PRINT  "D*t  *a*id*r  saa  for  dii  at  s« < d*bOMb*rn*  ov*r  d*  *tOr»t*  hu»*  ford 
i  du  ko«u**r  ia*n**r*  n*daf  h*l*  tid*n  om  du  «*aa  ikk*  stOd*  ind  i  hu**n*"’  *  "Du  u 
diOs*r  bo*b*n  p*d  ta*t*n  O" 

9996  PRINT  OT  21.01  POPER  RND-81  INK  9l"Tryk  oaa  q  for  at  start*"«  IF  INKEYi-"q " 
THEN  RUN  2 

9997  00  TO  9996 

9998  PRINT  OT  0,01"  "lOT  0.0«  INK  9«  "SC-"  I  Pi  "■  HI 

SC-"«hl"l  "I  POPER  61  INK  Ol "C" I  I  PRINT  INK  9l",*r-"«w»  RETURN 

9999  SAVE  “Br  Bo«b*r“  LINE  O«  00  TO  9999«  DATO  0.0.  191.222.233.12.0,0.0,0.48.48, 
16.0,0.0,233.  133.253.  133.233.  153,235.  133«  REM 

■  Skr  i 

v«  RUN  9999  for  at  ■  HH  **••»*•  oaa  baand 
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3D-labyri 


lø  SYMBOL  RFTER  244 

2ø  SYMBOL  244,15,31.31,63,63,127.127,127  ""J  I 

30  SYMBOL  245 , 255 ,255,255,255,255,255,255,255  0  ^ 

4ø  SYMBOL  246.255,255,255,255,255,255.255,255  _  f  I  ■  ■ 

56  SYMBOL  247 . 240 , 248 , 248 , 252 . 252 . 254 . 254 . 254 
6ø  SYMBOL  248,63,63,63, 255 , 191, 191, 191,63 
7ø  SYMBOL  249 , 255 , 255 , 252 , 253 ,253, 253 , 252 , 255 
8ø  SYMBOL  250,255,255,63, 191, 191, 191,63,255 
9ø  SYMBOL  251,252, 252 , 252 ,255,253, 253 , 253 , 252 

løø  SYMBOL  252, 8.X1 1  løøø,  8.X1 101 1 1  ,*.X1 101 11, &X1 1  løøø,  &X  111111 ,  &X1 11111,  S, XI  løøøø,&X 
111111 

llø  SYMBOL  253, BrXløl  1  løl, &X1  løl  løl  1, iXl løløl  11,«.X1  løøl lll,S.Xlølølll,«.Xløl løl  1,8.X 
lløllløl, fcXl 1111111 

12ø  SYMBOL  254 , 8.X  1  øøø  1 1  øø , &X  1  øøø  1111, 8-Xlllølll,8tX lllølll, 8cXlll,&Xllløl  11, &X11101 
11,1X11111111 

13ø  SYMBOL  255, IXllløø, &X11 11100,1X11 11100, 1X1 11  liøø, 8.X11 11  løø, 8.X1 111  løø, 8.X1 1111 
00,1X11111100 

14ø  FOR  x*l  TO  3  =  FOR  a=l  TO  6 = READ  cha.r  =  k iste*1-' x)=k iste*< x )+CHR$( char >  =  NEXT  y,x 
150  DRTR  15,8,244,245,246,247 
160  DRTR  15,9,248,249,250,251 
17ø  DRTR  15,9,252,253,254,255 

180  INK  0,0= INK  1,24= INK  2, 15= INK  6,9= INK  4.2= INK  5,7= INK  7,25= INK  8,3= INK  9,27 
190  h= 1 2  =  v= 1 2 

2øø  DEF  FNforwardSC  x,  a  )=MIDS(  a$=  p  o  s  y  -  x  t  y  r  e  t  n  i  n  9+ a  4  x  r  e  t  ri  i  n  8  >,  Posx+x4xretnin9+y4ar 
etmn9,  1  ) 

2 1  ø  DEF  FNran<  a ,  b  >=  I  NT<  RND4<  b~a  >  >+a 

22ø  D I M  a*< 25 ) , v«5j<  12, 12), w«X<  12, 12), box< 20 ) 

230  RANDOM I ZE  TIME 

24ø  MODE  1  .Mf=T 

25ø  PEN  1=  PR  I  NT  "Laba  rimten  bliver  nu  oprettet." 

26ø  GOTO.  11  lø 

27ø  MIDS<  *•<  a  ),  x  )="s"  =  Posx=lø  =  - 

28ø  P osa =24 = xretnin9=ø = aretnin9=l = antal *1  - 

29ø  tid=TIME 


3øø  ' rePeat  Plaa  _ 

31ø  GOSUB  53ø  _ 

32ø  IF  FNf orwar d$<  ø , ø )= " s "  THEN  FOR  i  =  l  TO  3  =  L0CRTE  9,22+i  =PRINT  k iste*< i  )  =  NEXT  = 


CRLL  &BB18  =  GOTO  1040  - 

33ø  a.S=INKEY*=IF  aS=M"  THEN  GOTO  33ø  - 

34ø  IF  a.S< >CHR$C 24ø  )  THEN  42ø 

35ø  FOR  n=l  TO  antal  yy 

36ø  an  ta  1  =  1  //, 

37ø  IF  FNforward$<  1 , ø  )="k "  THEN  SOUND  1 , 1200, 1  øø  =  bu.mP  =bumP  1  =  GOTO  3øø  ///" 
38ø  Posx=Posx+xretnin9  ///  / 

39ø  Posy=Posy-yretnin9  /  / /  /  , 

4øø  NEXT  n  // /  /  / 

41ø  GOTO  3øø  /  /  / 

42ø  IF  a$=CHR$< &F2 )  THEN  n=xretnin9  =  xretnin9=< NOT  xretnin9 >4aretni n9  /  /  /  / 
=  aretnin9=( NOT  yretnin9)4<-n)=G0T0  35ø  '  '  / — ~r~ 

43ø  IF  a.S=CHRS<  8<F3 )  THEN  n=xretnin9  =  xretnin9=< NOT  xretnin9 >4( ~aretnin9 )  /  /  , 

=  a  retn  i  ri9“<  NOT  y  retn  i  n9  >4n  =  GOTO  35ø  /  /  / 

44ø  IF  a.S=CHRS<  &F  1  )  THEN  xretnin9=-xretnin9  =  yretnin9=-aretnin9  =  GOTO  350 
450  IF  a$<  >"k "  AND  a*<>"K"  THEN  51ø  ELSE  MODE  1=F0R  x=l  TO  25  =  LOCfiTE  l  ,x  =  PRINT  a 

S<x >j = NEXT=kort=kort+l = LOCRTE  Posx,Posa  _ 

468  PEN  3  =  IF  xretn i n9=- 1  THEN  PRINT  CHR*<242>  /  /  /  /  /  /  7  t 

47ø  IF  xretnin9=l  THEN  PRINT  CHPS=r  243 )  /  //////  / 

480  IF  aretriin9=-l  THEN  PRINT  CHRS='241)  S  S  /  S  /  /  /  / 

49ø  IF  aretnin9=l  THEN  PRINT  CHRSC240)  / / 7 / 

5øø  WHILE  I NKEY$=" " =  WEND  =  GOTO  3øø  /  /  /  / 

51ø  IF  I NSTR< "123456789 ",a»)  THEN  antal=VAL< a*>=GOTO  330  /  /  /  / 

52ø  GOTO  3øø  x - -7 - - - y. - U. - J. - J. - 

530  'te9n  9an9e  y^  /  /  /  /  /  / 

54ø  MODE  ø  /  /  //// 

55ø  ORIGIN  320,200  /  7  /  /  /  / 

56ø  t=l  slut=ø  =  forte9n=l =  tbef ore=ø  =  mur=FNf orwardS< ø, 1 >="k / _ /  / 

57ø  IF  FNf orwardS*  t , ø  )=" k "  OR  t>=lø  THEN  slut=-l  7  7  / 

58ø  IF  FNforward*< t, 1 )="k "  RND  NOT  mur  THEN  GOSUB  78ø  /  /  / 

590  IF  C  s  lut  OR  FNforward*Ct, 1  )<>"k" )  RND  mur  THEN  GOSUB  9øø  /  /  / 

6øø  IF  slut  OR  t >= 1 ø  THEN  GOTO  64ø  /  /  / 

6 1 ø  x=32ø-SQR< t* 1 øøøø  >  =  a  =xx32ø*2øØ  1 -  / - 

62ø  MOVE  x, -a  =  DRHW  -x , -a , 4 

625  IF  FNf orwardS1' t, ø  >="s"  THEN  FOR  xx=-lø+t  TO  10-t  =  MOVE  -lø+t, -a+xx+8  =  DRAW  lø- 
t, -a +xx+8 , 9  =  NEXT 

630  t=t+l  =  GOTO  57ø  _ I 

64ø  'and  the  other  side  T 

65ø  mx=t  =  f orte9n=- 1 =  tbef ore=ø  =  mur =FNf orwardS« 0,-1 )="k "  / 

67ø  F U i FtFNf orward*1  t , - 1  )= " k " _ RND  NOT  mur  THEN  GOSUB  78ø  / 


670  r  IF  FNf orwardS=:  t, -1  )="k "  RND  NOT  mur  THEN  GOSUB  780 

680  IF  <  t=mx  OR  FNforwardS<  t,-l ><  >  k  )  HND  mur  THEN  GOSUB  900 

69ø  NEXT  t  /  /  7 

7øø  mn=32ø-3QR<  <  t-1 >*10000)  /  /  / 

71.0  a=mn  3204200  /  /  / 

72ø  FOR  x=-mn  TO  mn  STEP  4  /  /  / 


730  MØVE  x,y 

74ø  DRflW  x,-y,2 

750  NEXT  x 
760  GOSUB  99ø 
770  RETURN 

78ø  x=< 320-SQRC tKløøøØ ) )*forte9n • y=x/32ø*2øø 
79ø  mur=- 1 

800  xbef or*=<  32ø-SQR<  tbef'ore*  løøøø )  }*fort@9n 
81 ø  MOVE  xbef ore  , y 
820  DRflW  x,y  ,2 
830  DRflW  x,-y,2 
84ø  DRflW  xbefore,  -y  ,  2 
85ø  MOVE  x+4*fort*9n,ø 

860  DRflW  (  320-SQRC  <  t- 1  - 1  *<  t=ø  >  )*  1  øøøø  )  >*f orte9n  ,  ø ,  6 
87ø  z=lø-t  DRflWR  -z*f orte9n, z : DRflWR  z*forte9n,  -z  :DRAWR  -z*forte9n,  -z 
830  tb*for*«t 


890  RETURN 

9øø  x=<  32ø-SQR( t* løøøø > )#forte9n  =  y=x/320*2øø 
91ø  mur*ø 

92ø  xbef ore*(  32ø-SQR<  tbef' ore*  1  øøøø )  )*f orte9n 

930  FOR  x2=xbef ore  TO  x  STEP  -4#f ort@9n 

94ø  MOVE  x2, x2x32øC20ø 

950  DRflW  x2,-x2X32ø*2øØ,2 

96ø  NEXT  x2 

970  tbefore=t 

980  RETURN 

99ø  LQCflTE  lø, 2= PEN  1  IF  xretnin9=l  THEN  PRINT"ø" 


I  dette  spil  skal  du  tinde  en 
skat,  der  er  skjult  i  en  stor  la¬ 
byrint. 

Labyrinten  vil  hele  tiden  blive 
tegnet  tor  dig,  som  om  du  stod 
inde  i  den.  Altså  i  rigtig  3D. 
Det  gælder  så  om  at  tinde 
skatten  på  det  kortest  mulige 
antal  sekunder,  det  tærreste 


fe 


S 


i 


løøø  IF  xr«tnin9=-l  THEN  PR I NT" V" 
lølø  IF  yretnin9=l  THEN  PR  I  NT  "N" 
lø2ø  IF  y retning*- 1  THEN  PR I NT "S" 

1030  RETURN 
lø4ø  MODE  1 

1050  PR I NT" Du  fandt  skatten  ! ! !  " 

lø6ø  PR  I  NT  "Du.  bru.9te  "ti  d,'3øø  "  sek  under .  " 

lø7ø  PRINT : PRINT ; PRINT"o9"kort"k i9  Paa  kortet." 

Iø8ø  PRINT ; PRINT : PR I NT "Du  9ik "bump "9an9e  ind  i  muren 
1 090  WH I  LE  I  NKEY*= " "  WEND 
liøø  RUN 

lllø  ERflSE  ?S ,  va.X  ,  waX  ■  D I M  a$<  v*2+ 1  )  ,  vaX<  h  ,  i ,  waX<!  h+ 1  , 
112ø  FOR  x=ø  TO  h+ 1 :  wa V,  x ,  ø  )=  fe  wa*<  x ,  v+ 1  )=  fe  NEXT 
1130  FOR  x=ø  Tø  v+  fe  wa ø ,  x  )=  fe  wa.X<  h+ 1 , x  >= 1  NEXT 
114ø  q  =ø  =  z=ø :  a=  I  NT(  RND*h  >+ 1  =  waX<  a  ,  1  >=  fe  c=2 =  r=a  ■  s=  fe  M= 
1150  IF  M=4  THEN  1250 

116ø  IF  NOT<  M=1  OR  <M=2  AND  wa.X(r,s>=ø>>  THEN  1190 

117ø  IF  r=h  THEN  s=l-s*<s<>v>:r»l  ELSE  r=r+l 

1180  IF  wa5£<r,s>=ø  THEN  117ø 

1190  IF  wak<  r- fe  s  X >0  THEN  m=4  GOTO  1150 

12øø  IF  wa.XC r, s-1  >=ø  THEN  1230 

121ø  IF  wa.X<  r+  fe.  s  )=ø  THEN  GOSUB  1470  0N  INTr  RNDTmx  )+l 
1220  GOSUB  1440 : ON  ok+1  GOTO  1410,1340 
1230  IF  wa.X< r+1 , s )=ø  THEN  ON  INT<RND*3>+1  GOTO  1340,1 
124ø  GOSUB  1470  ON  INK  RND*mx  >+l  GOTO  1340, 1380, 1410 


antal  kia  på  kortet  og  med  så 
tå  buler  i  hovedet  som  muligt! 
Du  tlytter  ved  hjælp  at  pileta¬ 
sterne  og  kigger  på  kortet 
med  K. 

Hvis  du,  tør  du  trykker  på  en 
piletast,  trykker  på  et  at  talle¬ 
ne  Ira  1  -9,  vil  du  bevæge  dig 
så  mange  skridt  i  den  pågæl- 
V+1  >  dende  retning.  Held  og  lyk- 
ke!D 

Lars  Christensen 

3;slut=0 


GOTO  134ø,14øø,141ø 
380, 14øø 


125ø  IF  wa.5jO,s-l  >=ø  THEN  1280 

1260  GOSUB  1440:  IF  wa.XC  r+1 ,  s  >=ø  THEN  ON  ok  +  1  GOTO  1410,  14øø 
127ø  ON  ok+1  GOTO  141ø,143ø 

1280  IF  waXC r+ 1 , s >=0  THEN  GOSUB  147ø:0N  INK  RND*MX  >+l  GOTO  1380,1400,1410 
1290  GOSUB  1440:  QN  ok+1  GOTO  1410,1380 


13øø  IF  slut  THEN  131ø  ELSE  1150 

131ø  1  >=STRING$(h*2+l,  "k"  ): FOR  j=l  TO  v  =  a*<  j*2>="k"+STRING*<h*2, 1 

>=a*<  1  )  :  FOR  i  =  l  TO  h:  IF  våk.c  i ,  .i  X2  THEH  t'1ID$v  a*C  J*2  ) 

,  i *2+1, 1 >="k " 

1320  IF  va‘4<i,JX>ø  AND  va.X<  i ,  j  )< >2  THEN  MID*< a*<  J*2+l  ),  i*2, 1  >="  " 
133ø  NEXT  i , j : x=a*2 : y=2 : Posx=INSTR< **< 25  >  >  "  "  >  ■  MID*< a*< 25 ), Posx  , 1 >= 
1 34ø  wa.Xr r- 1 , s >*  1 ! c=c+ 1 : va5£< i —  fes >=2 : r=r- 1 


135ø  q  =ø : m=3 

1360  IF  c=h*v+l  THEN  slut=l 


) :  a$<  ..i  *2+1 


k " : GOTO  270 


1370  GOTO  13øø 

1 38ø  i,iak<  r ,  s- 1  >=  1 :  c=c+ 1 ;  va5£<  r ,  s- 1  >=  1 :  s=s- 1 :  GOTO  1 35ø 
1 39ø  c=c+ 1 : va'fe  r , s- 1 >= 1 : s=s- 1 : GOTO  1 35ø 

1 4øø  p,iaXC  r+ 1 ,  s  >=  1 :  c=c+ 1  :  va.X<  r ,  s-  )=2-(  vaX<  r ,  s  X  >ø  ) ;  r=r  + 1 :  m=4 :  GOT 0  1 36ø 
1410  IF  q  =  l  THEN  z=feIF  va.X<r,sX>ø  THEN  vaX<  r ,  s  >=3 :  q=ø  ;  m=l  ELSE  va.X<  r ,  s  >=1 :  q=ø 
r=  1 :  s=  1 :  m=2  ELSE  wa%<  r ,  s+ 1  )=1 !  c=c+ 1 ;  vak<  r ,  s  '>=  1  -2*<  va 
r ,  s  X  >0  ) :  s=s+ 1 :  m=3 1  GOT 0  1 36ø 
1420  GOTO  1300 
1430  m= fe  GOTO  13øø 

J  440  0=0: IF  S=v  THEN  IF  z=l  THEN  o=l  ELSE  q  =  l  ELSE  IF  waX<r,s  +  l X>0  THEN  o=l 
1450  IF  o=l  THEN  ok  =  l  ELSE  ok  =  INT(  PND*2 > 

1460  RETURN 

1470  ~x=2  IF  z< >1  AND  -==v  THEN  q=femx*3 


148ø  IF  wa.5{<r,s+l  )*ø  THEN  mx=3 
1490  RETURN 

15øø  PRINT  US I NG " ### " +CHR$v 1 3 > ; h*v-c ; : I F  m=4  THEN  1250 
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Commodore 


■  Med  dette  synthesizerpro¬ 
gram  til  din  Commodore  64 
kan  du  lave  dine  egne  melo¬ 
dier  eller  lydetlekter,  og  du 
kan  selv  indstille  de  vigtige 
parametre  uden  problemer. 
Ved  at  trykke  RETURN  én 
gang  vil  du  kunne  se,  hvilke 
taster,  du  skal  bruge  tor  at 
indstille  de  forskellige  ting. 
Når  der  står  F3  og  F4  betyder 
det,  at  med  F3  tælles  op  og 
med  F4  tælles  ned. 

Med  tryk  på  RETURN  én  gang 
til  vil  du  kunne  se,  at  du  kan 
spille  i  2  oktaver,  og  hvordan 
de  2  oktaver  ligger  på  tastatu¬ 
ret.  Derfra  kan  du  trykke  en 
hvilken  som  helst  tast  for  at 
komme  tilbage  til  indstilnin- 
gen.  God  fornøjelse. □ 

Claus  Ljunggæn 


3  VI-0iAl-OiPI-O«Sl-0iH-0iL»O«A-0 
1 0  VO  -34296 : AT-34277 i PL -34276 « SU -34278 
20  HF -34273 i LF -34272 
30  POKE  33280, OiPOKE  33281,0 

40  PRINT*«— —■—^«]ku««Z)3«| 

so  print*«— ————r-*-*-*-«-*--«-] 

60  PRINT'i— — BEPECIALLY  FOR  tfrOURI 

70  print«)— — — r-y->y  *  m  mn 

80  PR  I  NT  *  i— ■— — ■■Mf^OLOUT-C  *3000 
90  PRINT*«— 'ULSFOR  *D00*  SUST« 

92  PRINT*«— ■—— — —f >RFSS  PET1 

rniifT~— — — — — — — i  ■  ■  ■  i 

96  PRINT*!*«  ■■■■■■  • 

98  PRINT*— —C)  COPYRIGHT  1983-86* 

99  PRINT*— ■——■——ri  fl  mWWtim  mW 

100  print*— ———— TV  «nrn-ri 

101  rem  •••••*••••••••••••*•<•■•••«•••* 

I  10  REM  ••••••«  MAIN  PROGRAM  ••••*•• 

120  REM  . . 

130  GET  A*i  IF  «*■**  THEN  130 


rock 


i 


■—»EC  I  ALLY  FOR  ffTOURH  *64* 

■  »■■■»■■■«  «-«■»■»  ry  *»■■ 

— — POLOUhC  *3000  ATTAC/UECAY  «3000* 
’Ul.SFOR  *300*  SUSTA  I N/REL  *300* 

————PRESS  RETURN  FOR  IN5TRUCT IONS t  * 


133  IF  A»- 
160  IF  «*- 


133  IF  A9-  *R*  THEW-8IL-147IG0T0970 
140  IF  A*- *3 *  THEFW-9:L-2I IG0T0970 
143  IF  A*-*T*  THEW-9IL- 139«  G0T0970 
130  IF  A»-  *6  *  THENH-  1 0 « L -60 « G0T0970 
133  IF  «•■  * Y*  THEW-10iL-203«GOT0970 
160  IF  A*-*U*  THEKH-1UL-I14IGOT0970 
163  IF  A*- *8*  THETH« 1 2 « L *32  i G0T0970 
170  IF  A6-*I*  THEFH -  1 2 > L -2 1 6 > G0T0970 
180  IF  «•- *9*  TMEFW-I3IL-136JG0T0970 
190  IF  A*-*0*  THEFH- 14  t L- 1071 G0T0970 
200  IF  A»-*0*  THENH-  1 3 1 L -70  i  G0TO970 
210  IF  A*-*P*  THEN1- 16 l L-47 IG0T0970 
220  REM 

230  IF  A*-*X*  THEFW- I7IL-37 IG0TO970 
240  IF  TMEW-18IL-42IG0T0970 

230  IF  A*-*C*  THENI-  19IL-63 1G0T0970 
260  IF  A*-  *F  *  THEW-20 IL  -  1 00  i G0TO970 
270  IF  A*-*V*  THEW-21 1 L- 134  i G0T0970 
280  IF  «•- *B  *  THEFW-22 iL-227 IGOTO970 
290  IF  A*-*H*  THE NI  -24 1 L -63 1 G0T0970 
300  IF  A*-*N*  THEW-23IL-177IG0T0970 
310  IF  A*-*J*  THENI-27IL-36IGOT0970 
320  IF  A6-  *M*  THEW-28IL-214IGCT0970 
330  IF  A*-*K*  THEN4-30IL-I4I  IGOTO970 
340  IF  «•■*,*  THENH-32IL-94IG0TO970 
890  IF  «*-*■*  THEN  1000 

900  IF  «•-*■*  THEN  1070 

910  IF  «•-*■*  THEN  1100 

920  IF  «*-*■*  THEN  1170 

930  IF  «•-'■'  THEN  1270 

940  IF  «*-•■*  THEN  1300 

930  IF  ASC<  «•) ■ 13  THEN  1370 
960  GOTO  130 

970  POKEPL ,0 1 POKE  MF ,HlP0KE  LF,L 
980  POKEPL  ,P1 1  FOR  I -O  TO  30IPCXT  I 
990  GOTO  130 

iooo  REM  . . . 

1010  VI-V1MUF  VI  >  13  THEN  VI  »0 
1020  POKE  V0,V1 

1030  IFV1  -OTHEfPR  INT'I— — — — — 
1040  IFV1< -9AH)V1  >0TH£NPR1NT*««— 
1030  IFVI»10THEM>RINT*«— — — ■— 
1060  GOTO  130 

1070  REM  . . . 

1000  Al -Al »li IFA  I >233THENAl-0 
1090  POKEAT ,A 1 1  GOTO  1120 
1100  A I -A 1  -  1 1 IFA 1 <  OTVJENA 1 -233 
I  i  10  POKEAT, Al 

1120  IFA1-OTHEKPRINT*— ■ 

1130  IFAK -9AFOAI  >OTHEN»RINT 
1140  IFA1>-10AN)A1<  100THEN>RINT 
1130  IFA1  >-IOOTHEN»RtNT*«BB— | 

1160  GOTO  130 
1170  REM 

1180  A-A*  1 1 GOTO  1200 

1200  IF  A-l  THEN  PI-17 

1203  IF  A-2  THEN  PI -33 

1210  IF  A-3  THEN  PI-63 

1213  IF  A-4  THEN  P1-129IG0T0  1243 

1220  IF  A-3  THEN  PI-OiGOTO  1260 


COMMO¬ 

DORE 

64 


POKE  PL ,P 1 

PRINT*«— ——————  ■  ;  p  i 

GOTO  130 

PRINT*«B— «————— I* ’PI 

GOTO  130 

PR  I  NT  •  M— — |— — — doo 

A-0 

GOTO  130 

REM  Mim . . 

SI-SI  *1  UF  SI  >233  THEN  S  I -0 
POKE  SU,SHGOTO  1320 
S I  -S  I  - 1 1  IF  SKO  THEN  Sl-233 
POKE  SU, SI 

I FS I -OTHE^R  I  NT  *■————■————■— ————PC 

IFSK  -9AKOS  I  >OTHEN>RINT*«— ■—■■——— ——————— 

IFS1  >■  1  OANDS  1<  lOOTHENPRINT'aaa— MB— ■———■■■— M 
IFS1  >-100THEN>RINT*«— MM— ■— MMM— MM 
GOTO  130 

PRINT*  J|  «•» 

F  OR  I ■ 1 T022 

PR  INT'I  ■  ■  ■-) 

rCXT  I 

PRINT*!  ■*  I 

PRINT*«—— — — — ■— IINJSTILN1NGI  ' 

rniirr—i — — — —  mminni 

PRINT*«— — — — M — — PIB  —  0=21  *  3|  BM  m  41* 

pRiNT-a— ———■—■— i— ri  —  #6«  r7i  —  »sr 

PRINT'B— — PRESS  aPETURr—  TO  CONTINIUE* 

X -33296  I POK  E  X  ,6 
GETA6I IFA«  >**THENI730 
X-X*2«IF  X >33333  THEN  1300 
POKE  X ,6iPOKEX- I , I  i  GOTO  1473 
X-33373 i POKE  X,6 
GETA«  IFA«  >**THENI730 
X-X*80UF  X >36293  THEN  1330 

POKE  X ,6iP0KEX-40 , I « FOR  I ■ I  TO IOiFCXTiGOTO  1303 

X -36233 1 POKE  X ,6«P0KEX* I , I 

GETASt  IFA«  >  *  *THENI  730 

X-X-2HF  X< 56216  THEN  1360 

POKE  X ,6«POKEX» I , I t GOTO  1333 

X-36176IP0KE  X, 6 IPOKEX *40, I 

GETA*:  IFA«  >**THENI730 

X-X-80UF  X< 33296  THEN  1390 

POKE  X,6iP0KEX*40, I IFOR I ■ 1  TO lOlNEXTi GOTO  1563 
REM  *••■••«••••«<••••••••• «••••••• 

X -33296 i POKE  X,l 
GETA*i IFA«  >**THENI730 
X-X»2 1 IF  X  >33333  THEN  1630 
POKE  X, I IPOKEX- 1 ,6 l GOTO  1603 
X-33373 l POKE  X,6 
GETA*«  IFA«  >**THEN1730 
X-X*80l IF  X >36293  THEN  1660 

POKE  X , 1 IPOKEX -40 ,6 «FOR I ■ ITO 10  ifCXTiGOTO  1633 

X -36233 « POKE  X, 1 IPOKEX* I ,6 

GETA*i  IFA«  >*  *THEN1730 

X-X-2« IFX<  362 16THENI690 

POKE  X , 1 1 POKEX* I ,6 1 GOTO  1663 

X-36176IP0KE  X , l IPOKEX* 1 ,6 

GETA*:  IFA«  >**THENI730 

X-X-80HF  X< 33296  THEN  1470 

POKE  X , 1 i POKEX  *40  ,6 ! FOR I -  I  TO  10«  hCXTiGOTO  1695 
G -0 i GOTO  130 

REM  mm« . . . MM« 

P0KE3328 1 , 1 4 « PR  I  NT  CHR«  147) 

PRINT*«——  KEY  BOARD  * 

print*«— — — — — i  nmm  * 

PRINT*«— ———.ILLE  OKTAV* 

PRIHT  «— — — —  |  0|  ||  ||  ||  | 
ppim-im— - — i  ■  4  ■  4  ■■■■■■' 

———«*»— *******  -  YU  I  0  P* 

pr  in  'mNNHNmmimm£it£i  -eget  oktav* 

PP II-  - TTTT1II  Bflaa  ■  I  I  I  ■  a  ' 

PRIN’ r  i  ØF  4  »H4  6'4  ■*  4 

PP»^'  —— — — — — — C  VB  N  M  .* 

PR  I N  *  *  l)M2S±X£t2£±3  RE SS  ANY  TO  RETURN* 

GET  B« IFB»-**THEN1860 
IF  ASC<  AS> -13  THEN  30 
GOTO  1860 
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i  se«  ar  per  Christensen 
3  CO  TO  9960 
5  GO  SUB  9000 

3  PAPER  O:  BORDER  O:  CLS  :  FOR  f-0  TO  20  STEP  2 
10  LET  rnd  = I  NT  <RN0*7>+1 
20  IF  rnd»7  THtN  LET  rnd-6 
25  BORDER  O 

35  PRINT  'iNK  31"  JEDY  -«F  PER  CHRISTENSEN  -  TRYK  ER  TRST 

40  BEEP  .05.  rnd*rnd 
50  NEXT  f 
52  PAUSE  O 

6Z  BORDER  O:  PAPER  0»  CLS 

72  CO  SUB  9000 

75  LET  farve-l:  LET  *cor*«0 

77  FOR  f»0  TO  »OOS  PLOT  RND*255.  RNDM50*  NEXT  ♦ 

80  LET  b*="C" 

85  LET  a*-" I " 

90  LET  x-10:  LET  r-16:  LET  c-0:  LET  I iv*s*9s  LET  xl-2:  LET  yi-O: 

105  LET  a»INT  <RND*32) 

110  PRINT  OVER  It  INK  4SAT  k. yt«* 

»12  PRINT  PAPER  5:  INK  1 t AT  O, 26t"LlV:"tl ■ ves 
115  PRINT  PAPER  5t  INK  1 1 AT  O,  O f  SCORE:  "tscore 
117  PRINT  INK  farvefAT  c.atbf 
120  PRINT  AT  x  * yt"  • 

125  PRINT  AT  xl.rl t"  - 

126  PRINT  AT  xl*l,  yl t"  - 

128  IF  IN  65278-253  THEN  LET  y-y-1 

130  IF  IN  65278-251  THEN  LET  y«y*l 

135  IF  IN  49150-253  AND  score) -12000  THEN  GO  SUB  3000 

140  IF  IN  49150-251  THEN  LET  x«x-l 

145  IF  x 1 > - 1 8  THEN  GO  TO  9950 

150  IF  IN  32766-251  THEN  LET  x-x*l 

154  IF  score)  -12000  THEN  LET  yl-yl-M«  IF  yl>-30  THEN  LET  yl-O*  LET  xl-*l*2 

155  IF  IN  49150=253  THEN  GO  SUB  1200 

156  PRINT  AT  c.  at"  * 

158  LET  c  — c*  1  t  IF  0-19  THEN  GO  TO  1500 

160  IF  score-1000  THEN  LET  f*rve-2t  GO  SUB  1600 

162  IF  score-4000  THEN  LET  f«rve-3t  GO  SUB  1610 

165  IF  score-81 00  THEN  LET  farve-4:  GO  SUB  2000 

170  IF  score) *12000  THEN  LET  farve-5:  GO  SUB  2100 

200  IF  y  <«0  THEN  LET  y-0 

210  IF  y > -31  THEN  LET  y-31 s 

220  IF  x (-0  THEN  LET  x-0: 

230  IF  x) *18  THEN  LET  x-18« 

300  PRINT  INK  2 1 AT  4,5t"N“ 

310  PRINT  INK  1 1 AT  5. 25 1 " JK" t AT  6.  25 1 "LU" 

500:  GO  TO  110 
1009 

1200  IF  x=c  AND  y-a  THEN  PRINT  INK  2t AT  x.yt"AB,at  BEEP  .02.20:  BEEP  .05.30:  BE 
EP  .03.20:  PAUSE  50:  PRINT  AT  x.yt"  " 

1202  IF  x-c  AND  y-a  AND  b*«"C“  THEN  LET  score-score*100t  LET  c-0:  GO  TO  105 

1204  IF  x-c  AND  y-a  AND  b*-"D"  THEN  LET  score-score+200:  LET  c»0:  GO  TO  105 

1206  IF  x-c  AND  y-a  AND  b*="F"  THEN  LET  *core-score*300t  LET  c-0:  GO  TO  105 

1210  IF  x  < >  c  OR  y<>a  THEN  RETURN 

1500  PRINT  INK  farvetAT  C.  af  AB" :  FOR  n-0  TO  10:  BEEP  .05.  RND-20:  NEXT  nt  LET  l 

.  ves- 1  .  ves-1:  PRINT  AT  c.  at . LET  c-0:  IF  i  i  ves) O  THEN  GO  TO  105 

1510  IF  i, ves-0  THEN  FOR  n-0  TO  10:  BEEP  . 05. -( RND*20) :  NEXT  n: 

1520  CLS  :  PRINT  "Du  kunne  ikke  afvaerse  ansrebet.aen  du  fik  da  "tscoref  point 

1531  PRINT  PAPER  6:  INK  '2t  "  TAK  FOR  SPILLET  "I  PAUSE  200 

1532  BORDER  7:  PAUSE  15:  PAPER  O:  CLS  :  PAUSE  15:  PAPER  7:  CLS  :  PRINT  INK  Of »O 

t  “3  1982  Sinclair  Research  Ltd" 

1533  PAUSE  O:  GO  TO  1534: 

1534  CLS  :  BEEP  .5.15:  BEEP  .3.15:  BEEP  .1.15*  PRINT  PAPER  2t  INK  lt  FLASH  ltAT 
10.  Ilt "S  NYDT":  INPUT  "Vil  du  DrOve  .«en"ts* 

1536  IF  s*  O  "nej"  AND  s*0"n"  THEN  GO  TO  63 
1555  STOP 

1600  BEEP  .5.17:  LET  b*-"D":  LET  »core=score*1000:  RETURN 


1610  BEEP  .5.40:  LET  b*-"F":  LET  score-score* 2000!  RETURN 

2000  BEEP  .6.-20:  LET  xl-2:  LET  yl-O:  PRINT  AT  xl.ylfG":  LET  score  -score*3000 
2100  PRINT  AT  xl. ri f G" 

2105  PRINT  AT  xl*l,ylfO" 

2108  RETURN 

3000  IF  x—  x  1  AND  y-yl  THEN  PRINT  INK  2:AT  xl.ylfAHB" 

3005  IF  x— x 1  AND  y-yl  THEN  LET  score-score+5000:  FOR  f-0  TO  69:  BEEP  .0025. f:  N 
-EXT  f:  GO  SUB  4900 

3010  IF  x  < ) x 1  OR  y  < >  y 1  THEN  RETURN 

4900  FOR  f-0  TO  100:  NEXT  f:  CLS  :  FOR  f-0  TO  7 

5000  BEEP  .  05.  f*f:  PRINT  INK  f  S  AT  0.  Of  JEG  TROR  IKKE  PAA  DET"' "HVORDAN  KAN  ET  I 
NDI  VID  SOM  DIG  MED  ET  SAA  AANDSFQRLADT  ANSIGT"’ "REDDE  MENSKEL  I GHEDEN  FR 

A  DE  FRYGTLIGE  ’ JOBAJANER’  ?  " 

5010  NEXT  f 

5015  FOR  f-0  TO  130  STEP  30 

5020  PLOT  110.0:  DRAW  f.  100.  -PI:  PRINT  AT  9.  16*  ( f /8) -2f  H"  :  BEEP  .05.10 
5025  NEXT  f 
5027  PAUSE  100 

5030  CLS  :  PRINT  ”  "PROV  OM  DU  KAN  KLARE  DET  IGEN":  PAUSE  100:  GO  TO  55 
6000  STOP 

9000  RESTORE  9070:  FOR  —1  TO  15 
9030  READ  e» 

9040  FOR  n-0  TO  7 

3050  READ  «:  POKE  USR  e»*n. a 

9060  NEXT  n:  NEXT  m 

9070  DATA  "a” , 160. 192. 32. 63  .  248, 251 . 63,  31 
9080  DATA  "b“ . 34. 116. 168. 60. 190. 48. 240. O 
3090  DATA  "c ". 1 29. 1 29.  165. 21 9. 21 9. 165.  1 29. 1 29 
9100  DATA  "e". 127.65. 127.65. 127.65. 127.65 
9110  DATA  "d", 254, 56. 56. 56. 56.  16.0. O 
9120  DATA  "f". 96, 96, 56. 248. 56. 40. 36,98 
9130  DATA  "*".8.8.28.54.62.54.28,93 
9140  DATA  "h".  136.73.42.  146.  124.42.  73.  72 
9150  DATA  ".",24,36,66.255.66,36.24,0 
3160  DATA  "J". 0.0.0,  1.3.7,  15.31 
9170  DATA  "k".0.6.9.J45.  225.  226.244.232 
9180  DATA  "I ".31. 15. 22. 35. 69. 72. 48. O 
3190  DATA  184. 112.224. 192. 128.0,  O.  O 

3200  DATA  "n" . 24. 60. 1 10, 251 . 255. 1 10. 60.  24 
9210  DATA  "o".  93.  127.127.  127,93.73.93.  85 
9800  INK  6 

9900  FOR  n-0  TO  31  *  PRINT  AT  21.nt"E"*  NEXT  r. 

3910  FOR  n-0  TO  31  STEP  2:  PRINT  AT  20.nt"E":  NEXT  n 

9920  FOR  n-0  TO  31  STEP  4:  PRINT  AT  19, nt"E":  NEXT  n:  RETURN 

9950  INK  2 

9951  FOR  nO  TO  31  STEP  4:  PRINT  AT  19,n!"E“:  BEEP  .01. n:  NEXT  n 

3953  FOR  n-0  TO  31  STEP  2:  PRINT  AT  20,nfE":  BEEP  .02,n:  NEXT  n 

3955  INK  2:  FOR  n-0  TO  31:  PRINT  AT  21.nfE“:  BEEP  .01. n:  NEXT  n:  FOR  f-0  TO  200 

:  GO  TO  1520 

9960  ifcK  4:  PAPER  O:  BORDER  O:  CLS  :  PRINT  BRIGHT  11"  JEDY 

AF  Per  Christensen  23-6-’ 84" 

3965  PRINT  ’  INK  7t  BRIGHT  lt"Du  Sidder  i  kontrol  rummet  øaa  en  af  jordens  fors 
varsstat ioner  ,o*  ser  oaa  en  af  de  -anse  over-vaasn i nssskaerme. Det  er  helt  sk 
yfr<t  saa  du  kan  se  -asser  af  stjerner , Overst  kan  du  ossaa  se  den  rOde  dvaer9stJ 
erne  ’BIVAL’  .o*  kaemee  oianeten  * TRATUM’ . " 

9370  PRINT  BRIGHT  1 1 ’ "P l udse  I  ■ s  kommer  der  et  fremmed  rumskib  susende  ned  over 
skaermen.du  naar  ikke  hen  til  kont ro  i knaoDerne  fOr  det  fOrste  skib  er  s 

måderet  morf  byen  neden  under. men  saa  er  du  klar  til  at  besvare  ansrebet  ■!!!** 
9975  PRINT  ’  FLASH  II "TRYK  EN  TAST":  PAUSE  O 
9980  CLS  :  PRINT  ’"Strr  dit  sistekorn  med  fOlsende  taster 
9982  PRINT  ’-NED-’M*  0P-’ K* " 

3984  PRINT  ’ "VENSTRE*’ Z*  H0JRE-’ X’ " 

3986  PRINT  ”,SKYD*’L’" 

9988  PRINT  "(FLERE  TASTER  KAN  HOLDES  NEDE  SAMTIDIG  F. EKS.  ’ M’  OG  ’Z’)" 

3990  PRINT  ’ "HUSK  .AT  NAAR  MODERSKIBET  KOMMER  (NAAR  DU  HAR  12000  POINT). SAA  SKA 
L  DET  RAMMES  OVERST  • 1 • “ 

9992  PRINT  * "DIN  LASER  SKYDER  SAA  HURTIGT  AT  DU  IKKE  KAN  NAA  AT  SE  SKUDET. MEN  DU 
KAN  TYDELIGT  SE  EFEKTEN  HVISDU  RAMMER" 

9994  PRINT  ’  FLASH  II "TRYK  EN  TAST":  PAUSE  O:  GO  TO  3 
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■  I  programmet  LINE  WRITER 
kan  du  med  tekstbehand¬ 
lingsprogrammet  Vizawrite  td 
din  MPS  802  printer  til  at  skrive 
i  den  linjeafstand,  du  ønsker. 
Indtast  programmet  og  save 
det.  Ved  opstart  spørg  pro¬ 
grammet  om  linjeafstanden, 
hvor  du  kan  vælge  fra  1  til 
127. 

Efter  dette  skriver  computeren 
et  lille  eksempel  ud  pd  printe¬ 
ren,  sd  du  kan  se  om  afstan¬ 
den  er  rigtig. 

Endelig  bliver  du  spurgt,  om 
du  vil  loade  Vizawrite  eller 
stoppe.  Hvis  du  vælger  Vi¬ 
zawrite,  fdr  du  i  programmet 
den  ønskede  linjeafstand. □ 
Peter  Anker  Jakobsen 


UNE  WRITER 


COMMO 

DORE 

64 


PR  I  NT"  iJ" 

PRINT"  COMMODORE  MPS  802  MATRIX  PRINTER" 
PRINT"  LINIEAFSTANDSPROGRAMMERING" 

INPUT"3SKBiaSg  AFSTANDSTAL  <  1-127)  "  ;  AF 
IF  AF< 1  OR  AF >127  THEN  130 
OPEN  S ,4 ,6  s  OPEN  1 ,4 
PR INT#6 ,CHR*< AF  > 

PR  I NT# 1 , "DETTE  ER  L INI AFSTAND "AF 
PR  I NT« 1 DETTE  ER  L INI AFSTAND "AF 

input11  gtmmwmw  er  afstanden  ok  ";s* 

IF  S*="N"  THEN  CL0SE6:CL0SE 1 : GOTO  130 
IF  S*<>"J"  THEN  180 

input” load  vizawrite  ";s* 

IF  S*="N“  THEN  SYS64738 
IF  S*<  >"J"  THEN  210 

PRINT"S  SKIFT  DISKETTE  &  TRYK  RETURN" 

GET  AS:  IFA*<  >CHR*<  13 >  THEN  250 
LOAD "VIZAWRITE  64", 8,1: NEW 


Sortering 


Programmet  er  selvforklarende 
Kurt  Friis  Hansen 


'Shell  sort  rutine 

60000  ELEMENT  AFSTANDX*2“ INTC LOG(ELEMENT  ANTALX)/L0G(2)  >-l 
60010  ' 

60020  WHILE  ELEMENT  AFSTANDX>0 

60030  FOR  TAELLER1X=1  TO  ELEMENT  ANTALX-ELEMENT  AFSTAND« 

60040  FOR  TAELLER2X-TAELLERU  TO  1  STEP  -  ELEMENT  AFSTANDX 

60050  IF  N0EGLERf(TAELLER2X)>N0EGLER4(TAELLER2X+ELEMENT_ AFSTANDX) 

THEN  SWAP  NOEGLERf ( T AELLER2X ) .NOEGLERf (TAELLER2X+ELEMENT  AFSTANDX) 
ELSE  TAELLER2X-0 
60070  NEMT 

60080  NEXT 

60090  ELEMENT  AFSTANDX=ELEMENT  AFSTANDXN2  : 'Heltalsdivision 

60100  WEND 

ElementatBtanden  har  betydning  tor,  hvor  effektivt  (hurtigt)  sorteringen 
foreger.  Hvis  sorteringen  startes  med  en  ELEMENT.AFSTANDX  pø  mellem 
ELEMENT. ANTALX  og  ELEMENT.ANTALX/2 ,  og  startvtrdien  vælges  søledes,  at 
alle  ef tarfPlgende  værdier  er  ulige,  opnøs  det  bedste  resultat.  Denne 
tllpasnihi  sker  i  linje  60000.  Er  der  f.eks.  tale  om  120  elementer, 
bliver  fyrste  vÆrdi  for  ELEMENT.AFSTANDX  lig  med  63,  og  de  efterfølgende 
v-frdier  bliver  31,  18,  7,  3  og  1. 
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Solitaire 


a*B 


//-programmør »  CLAUS  0.  THOMSEN-//  * 

PRINT  CHR*  < 12) 

DIM  t  < 7, 7) .  sp» 1  *  OF  l,c»  OF  <2).d*  OF  <2),ans*  OF  1 
PRINT  flTlll, 1) ;"*#  SOLITAIRE  #*" 

PRINT  AT(50,  10)  ;••*****•****#******'■ 

PRINT  AT  <50,  11) ;  "**  CT  SOFTWARE  **" 

PRINT  AT (50, 12) ; "**  PRÆSENTERER  •*" 

PRINT  AT(50, 13) ;"**  SOLITAIRE  **" 

PRINT  AT  (50,  14)  •"##***#**###******" 

PRINT  AT  ( 1 , 3) { "  1  2  3  4  3  6  7" 

PRINT 

PRINT  "1  !  !  !  I" 

PRINT 

PRINT  ”2  !  1  !  2" 

PRINT 

PRINT  ”3  !!!!!!!  3" 

PRINT 

PRINT  "4  '  !  !  •  •  !  4“ 

PRINT 

PRINT  "3  •  !!!•!•  5" 

PRINT 

PRINT  ”6  !  !  '  6" 

PRINT 

PRINT  "7  !  •  ! " 

PRINT  "  1  2  3  4  3  6  7* 

EXEC  forapørgølsøs 

// - // 

PROC  svarspil 
REPEAT 

PRINT  AT <43, 22) ;CHR*<30> 

INPUT  AT (1,22), "VIL  DU  SPILLE  SA  SKRIV  J,  ELLERS  SA  SKRIV  N  -I  spalt 
UNTIL  spil*  IN  "JjNn"  AND  LEN<spal*))0 
IF  spalt  IN  "Jj"  THEN  EXEC  varda 
IF  sp il*  IN  "Nn“  THEN  STOP 
ENDPROC  svarspil 

// - // 

PROC  vardi 
q  s  "O 
ri  »O 
REPEAT 
r  x-r-M 

FOR  Ai-1  TO  7  DO 

IF  rOl  AND  r<>2  AND  r<)6  AND  r<>7  THEN 
t  <r,  «)  i-3 
ENDIF 

IF  A  O  1  AND  102  AND  4  0  6  AND  107  THEN 
t  <r,å>  1-3 
ELSE 

IF  t  ( r,  A)  0  5  THEN  t<r,A)i— 5 
ENDIF 
NEXT  A 
UNTIL  r-7 
t  <4, 4) i-0 
EXEC  brat 
ENDPROC  vardi 

// - // 

PROC  brat 

PRINT  CHR* (12) 

PRINT  "  **  SOLITAIRE  *•" 

x  i-O 

PRINT  "  1234567“ 

REPEAT 

xi-x+1 

PRINT  AT <6, x*2+3) ;x;AT (43,  x*2*3> ;x 
FOR  y i-l  TO  7  DO 

IF  t  (x,  y)  O  O  AND  t(x,y)<>-3  THEN 
PRINT  AT (9+y»4, x*2+3) ; "  ! " 

ENDIF 

IF  t  (x,  y)  O  O  AND  t(x,y)<)-5  THEN 
PRINT  AT  <9*y*4, x*2*3> ; "  ! • 

ENDIF 

IF  t  (x,  y>  OS  AND  t(x,y)<>-5  THEN 
PRINT  AT <9+y*4, x*2+3) " 

ENDIF 
NEXT  y 
UNTIL  x-7 
PRINT 

PRINT  "  1  2  3  4  3  6  7" 

EXEC  mov 
EXEC  flyt 
ENDPROC  brat 

// - // 

PROC  flyt 
REPEAT 

PRINT  AT (10, 22) ; CHR* (30) 

INPUT  AT(l, 22) , “Flyt  fra  " t  c* 

IF  c*="“  THEN  EXEC  flyt 

IF  c*  IN  "Ss"  THEN  EXEC  svarspal 

IF  LEN  (c*)  02  THEN  EXEC  flyt 

IF  c*  < 1  i )  (CHR* (49)  OR  c* < 1 1 > > CHR* (55)  THEN  EXEC  flyt 

IF  ct(2i) (CHR* (49)  OR  c* (2s ) > CHR* (55)  THEN  EXEC  flyt 

INPUT  AT (13, 22), "til  " :  d* 

IF  d*=“"  THEN  EXEC  flyt 

IF  LEN (dt )  O  2  THEN  EXEC  flyt 

IF  d*  IN  "Ss"  THEN  EXEC  svarspil 

IF  d* ( 1 : )  (CHR* (49)  OR  d* ( 1  s ) > CHR* (55)  THEN  EXEC  flyt 

IF  dt <2< )  (CHR* (49)  OR  d* (2: ) > CHR* (55)  THEN  EXEC  Tlyt 

PRINT  AT ( 1 , 22) ; "Flyt  fra  “ ;c*Cl ?c* (2* ) j "  til  - ;d*( 1 l > " ;d*<2* ) 
IF  VAL (c* ( 1 1 ) )  < 1  OR  VAL (d* ( 1 1 ) )  <1  THEN  EXEC  flyt 
IF  VAL (c* ( 1 x ) ) ) 7  OR  VAL (d*(ll))>7  THEN  EXEC  flyt 
IF  VAL (c* <2l) >>7  OR  VAL <d* (2: ) ) ) 7  THEN  EXEC  flyt 
IF  VAL  <ct(2>) > (1  OR  VAL(d*<2: ) ) <1  THEN  EXEC  flyt 


»Solitaire«  er  et  meget  gam¬ 
melt  brædtspil,  som  stadig  er 
populært  i  vide  kredse.  Den¬ 
ne  version  at  solitaire  kører  i 
Comal  80  på  en  Piccolo  com¬ 
puter. 

Maskinen  simulerer  brædtet, 
hvor  der  er  33  huller  med  små 
»pinde«  i  hver  med  undtagel¬ 
se  at  den  midterste. 

Det  gælder  om  at  tlytte  og 
tjerne  pilene  efter  bestemte 
regler,  indtil  der  kun  er  én  til- 


ø*-VAL (c*(l  l) ) 
f « -VAL ( c* ( 2  * ) ) 
g  x -VAL (d* ( 1 1 ) > 
hi-VAL(d*(2x ) > 

IF  ø  O  g  AND  f  Oh  THEN  EXEC  flyt 
IF  t  <t, f )  O  5  THEN  EXEC  flyt 
IF  t (g,  h) O  O  THEN  EXEC  flyt 
IF  c*-d*  THEN  EXEC  flyt 
iX-INT<ABS<  <ø*g>/2) ) 
j  x-INT  < ABS  < (f*h) /2) ) 

IF  t  (i,  j)  05  THEN  EXEC  flyt 
EXEC  tagn 
UNTIL  q-31 
EXEC  øndgamø 
ENDPROC  flyt 


bage,  som  så  til  gengæld 
skal  være  placeret  i  midten. 
Programmet  er  sådan  set 
selvforklarende,  men  læg  for 
en  sikkerheds  skyld  mærke  til 
vores  eksempel  på  spilløs¬ 
ning.  Brædtets  udformning 
ligger  i  linierne  150  til  290. 

I  linierne  770,  1250  og  1270 
kan  man  i  stedet  for  to  mel¬ 
lemrum  danne  et  mellemrum 
og  et  O  i  printsætningen  (»O«), 
Claus  0.  Thomsen 

Har  ar  an  løsning  til  SOLITAIRE 


PROC  tagn 
qi-q+1 

PRINT  AT <9*f*4, ø«2*3) " 
t (a, f ) x-0 

PRINT  AT<9-*j*4,  i*2*3)  " 

tU,  4)  x-0 

PRINT  AT (9+h*4,g*2*3) !" 

t (g,  h) x-5 

PRINT  AT <33, 11)  ;q 

PRINT  AT (63, 20) ;c*(lx) ;AT(63,20) ;c*(2x) 
PRINT  AT  <  7 1 , 20 )  ;d*(lD  ;AT<73,20>  ;d*(2D 
ENDPROC  tagn 


1.  Flyt  fra  (2,4)  til  (4,4) 

2.  Flyt  fra  (3,6)  til  (3,4) 

3.  Flyt  fra  (1,3)  til  (3,3) 

4.  Flyt  fra  (4,5)  til  (2,5) 
3.  Flyt  fra  (1,3)  til  (1,5) 

6.  Flyt  fra  (1,5)  til  (3,5) 

7.  Flyt  fra  (6,3)  til  (4,5) 
6.  Flyt  fra  (3,7)  til  (3,3) 
9.  Flyt  fra  (5,4)  til  (3,6) 

10.  Flyt  fra  (3,7)  til  (3,7) 

11.  Flyt  fra  (3,7)  til  (3,3) 

12.  Flyt  fra  (3,2)  til  (3,4) 

13.  Flyt  fra  (7,3)  til  (3,3) 

14.  Flyt  fra  (4,3)  til  (6,3) 
13.  Flyt  fra  (7,5)  til  (7,3) 

16.  Flyt  fra  (7,3)  til  (5,3) 

17.  Flyt  fra  (2,3)  til  (4,3) 

18.  Flyt  fra  (3,  1)  til  (3,3) 

19.  Flyt  fra  (3,4)  til  (3,2) 

20.  Flyt  fra  (3, 1)  til  <3,  1) 

21.  Flyt  fra  (3, l)  til  (3,3) 

22.  Flyt  fra  (5,4)  til  (3,4) 

23.  Flyt  fra  (3,4)  til  (3,2) 

24.  Flyt  fra  (3.2)  til  (5,2) 

25.  Flyt  fra  (5,2)  til  (5,4) 

26.  Flyt  fra  (5,4)  til  (5,6) 

27.  Flyt  fra  (4,6)  til  (4,4) 

28.  Flyt  fra  (4,3)  til  (4,5) 

29.  Flyt  fra  (3,3)  til  (3,5) 

30.  Flyt  fra  (5,6)  til  (3,4) 

31.  Flyt  fra  (6,4)  til  (4.4) 


PROC  hurra  28.  Flyt  fra  (4,3)  til  U 

29.  Flyt  fra  (3,3)  til  C 
RePEftT  30.  Flyt  fra  (3,6)  til  (I 

PRINT  CHR* ( 7 )  31.  Flyt  fra  (6,4)  til  (( 

FOR  ai-1  TO  230  DO 
NEXT  a 
ai-a-»l 
UNTIL  a-3 
EXEC  tillykke 
ENDPROC  hurra 

// - // 

PROC  «ov 

PRINT  AT (30, 11); "FLYT-" ;q 

PRINT  AT ( 30, 20) SIDSTE  TRÆKx  0,0  TIL  0,0“ 

ENDPROC  aov 

// - - - // 

PROC  endgaøø 

IF  t  (4,4)  0  3  TtCH  EXEC  ava rapil 
EXEC  hurra 

ENDONOC  andgaøa 

PROC  i nat  ruda 
PRINT  CHR* (12) 

PRINT  AT (20, 1 ) ; "•*#**••********“ 

PRINT  AT (20, 2) ; "*  *" 

PRINT  AT (20,3) SOLITAIRE  *" 

PRINT  AT (20, 4) *" 

PRINT  AT (20,  3) ; "•*•»••*********" 

PRINT  “Du  akal  flytta  pindønø,  indtil  dar  kun  ar  an  i  midten. " 

PRINT  "For  at  flytta  an  pind  akal  du  skravø  dana  koordinatar. " 

PRINT  “Dat  gør  du  vad,  at  akriva  da  to  tal  hvor  dan  akal" 

PRINT  “flyttaa  fra.  Daraftar  »kravar  du  tallønø,  til  dar  hvor" 

PRINT  “dan  akal  flyttaa  til." 

PRINT 

PRINT  "DU  SKAL  IKKE  SKRIVE  TALLENE  MED  KOMMA  MELLEM  DEM . " 

PRINT  “TALLENE  SKAL  LIGGE  MELLEM  11  OG  77." 

PRINT  "PINDENE  SKAL  FLYTTES  VED  AT  HOPPE  OVER  EN  PIND, " 

PRINT  “TIL  ET  HUL." 

PRINT  "DU  KAN  STOPPE  SPILLET  MED  S.  " 

PRINT  “DU  SKAL  SKRIVE  DET  LODRETTE  TAL  FØRST,  DEREFTER  DET  VANDRETTE. 
EXEC  svarspil 
EXEC  varda 
ENDPROC  instruca 

// - // 

PROC  forapørgelses 
REPEAT 

PRINT  AT (31 , 43) ;CHR* (30) 

INPUT  AT( 1,22), "VIL  DU  HAVE  INSTRUKTIONER  (J/N)  "X  ina* 

UNTIL  ina*  IN  "JjNn"  AND  LEN(ina*)>0 
IF  ina*  IN  "jj"  THEN  EXEC  instruca 
EXEC  vardi 

ENDPROC  forapø rgalaaa 

// - // 

PROC  tillykke 
PRINT  CHR* (12) 

PRINT  "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

PRINT  "x  X" 

PRINT  "X  TTTTT  IIIL  L  Y  YKKKK  EEEEE  X" 

PRINT  "X  T  IL  L  YYKKKKE  X" 

PRINT  "X  T  I  L  L  Y  KK  KK  EEE  X" 

PRINT  "X  T  IL  L  Y  KKKKE  X" 

PRINT  "X 
PRINT  "X 


III  LLLL  LLLL  Y 


PRINT  “XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
EXEC  svarspal 
ENDPROC  tillykke 

// - // 
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Easy  Data 


l.DEL 

0  PRINTVNEW 

1  PRINT"«HJ=r  44,16  pr  1 6*256, 0  NEW 

3  PRINT  "THLOflD" ,  CHR.04)  i  "KRRTO”  ; CHRP (34);  ",  8 

4  PRINT"KM«MPr8eø,225  RUN« 

50  POKE  138,4  PORE  631,13  . 

60  POKE  632,13 

65  POKE  633,13 
70  POKE  634,13 
80  END 
100  PR  I  NT"  n" 

105  S«VE"ERSV  DflTfl  64", 8 

107  PRINT 

110  OPEN  13.8) 15 

120  0ET*15,fi»  PRINTft*.  IF  8*<>CHR*<13)  THEN  120 

122  PRINT 

130  CLOSE  15 

1000  REM  SBVE  GOTO  100 


■  I  dette  databaseprogram 
kan  du  indlægge  op  til  1500 
navne  og  adresser  på  tolk. 
Du  kan  også  placere  person¬ 
lige  data  på  hver  enkelt  og 
søge  på  alle  kriterier  med 
undtagelse  at  de  personlige 
data.  Dem  har  du  tor  dig  selv. 
Programmet  er  opdelt  i  2 
blokke  og  virker  kun  på  dis¬ 
kette.  indtast  del  1,  og  save 


den  med  GOTO  100.  Indtast 
nu  del  2,  og  save  med  GOTO 
62000. 

Programmet  fylder  ca.  10  K 
og  kan  anvendes  med  MPS 
80 1 ,  802  og  flere  andre  printe- 
re.  I  programmet  er  også  ind¬ 
bygget  dansk  karaktersæt. □ 

Martin  Bøjstrup 
Torben  H.  Rasmussen 


2.  DEL 

ø  OPEN  15*8/ 15/ "I"  CLOSE  15  GOSUB  6 løøø  REM  DANSKE  TEGN  (rrøA; 

1  REM 

2  REM  *  EASV-DATA  64  S  1541  (C)  M.B.-T.H.R  ♦ 

3  REM 

7  P0KE650- 128 
lø  D*ø 

3ø  P I MNf (15øø; , Hf < il 5øø > , Pf ( 1300) 7  Tf ( 1 5øø > 7 Df (1 500 ) 

1 00  P0KE53280 •  0  P0KE5328 1 , 0  PRINT" 

llø  PRINT" 3  B" ; 

120  PRINT"a  EASV  DATA  64  «  1541  <C)  M.B.-T.H.P  5" 

130  PRINT" S 

150  PRINT"  C«3  1  i  NVE  DATA" 

160  PRINT"  da  2  9  SøGNING-RET  I  DATA 
170  PRINT"  eia  3  ■  SLET  DATA" 

180  PRINT"  ««a  4  ■  SAVE  DATA" 

190  PRINT"  093  !  LOAD  DATA" 

221  PRINT"  røa  6  ■  UDSKRIFT  AF  ADRESSE  LISTE" 

230  GETXf 

240  IFXf *" 1 "THEN løøø 
250  IFXf»"4"THEN2øØØ 
260  I FXf- "5 " THEN3øøø 
280  IFX$*"2"THEN5øØø 
300  IFXf»"3"THEN  9øøø 
310  IFXf-"6"THEN  47øøø 
320  G0T0230 

løøø  REM  **  NVE  DATAER  I  KARTOTEK  ** 

1005  GOSUB  60000 

1006  PR  I  NT "  -iCHCHiliMUKUfiUGlIiIiICJlflW  B" 

1007  PRINT"« _ ", 

1008  PRINT" 3  NVE  DATAER  I  KARTOTEK  i" 

1010  Nf (D)-"  "  INPUT" ‘iW*TxT«WAhM",  Nf  <D> :  IFNf (D)*"  "THENNf (D)-"-" 

1020  Af (D)-" "  I  NPUT  "  'sWsTsfiTsfsfjfiW"  ; Af ( D )  IFAf  (D)-"  "THENAf  <D>-"-" 

1030  Pf (D)-""  INPUT ■  IFPf (D)-" "THENPf <D>-"-" 

1040  Tf <D>*""  I  NPUT  "  stsfiTtfiWiftfsrø" ,  Tf  <D>  IFTf  (D)-"  "TNENTf  (D)-"-" 

1050  Df(D)-""  I  NPUT "  ’itsTsWiWAfstø" ,  Df  (  D )  IFDf  (D)*"  "THENDf  (D)-"-" 

1060  PRINT"a*«røC*«flICiæ^^  ER  DATA  I  ORDEN  (J/N)  1" 

1070  GETXf  IFXf-"N"THENlø06 
1080  IFXfO" J"THEN1070 

1085  D-D+lLf-"*««"  Nf (D)-Lf  Af(D>-Lf  Pf (D)*Lf  Tf (D)-Lf  Df (D)"Lf 
1090  GOTO  100 

2000  REM  **  SAVE  DATA  PA  DISKETTE  ** 

2001  PR  I  NT  -n _ 

2002  PRINT" «  SAVE  DATA  PA  DISK  S" 

2003  OPEN  15787 157 "I"  CL0SE15 

2007  INPUT  0*1X11*3  FILENS  NAVN  lil";Qf  IF  Qf«"M  THEN  GOTO  100 

2008  Vf-"K/"*Qf ♦" 7 S, W"  0PEN2 • 87 27 Vf 

2009  FOR  X-ø  TO  DM 

2010  PRINT#27 Nf (X) : PRINT#27  Af (X) : PRINT#2, Pf (X) : PRINT#27 Tf <X) : PRINT#27  Df (X) 
2020  NEXT  X 

2030  CLOSE  2 
2040  GOTO  100 

3000  REM  ««  LOAD  DATA  PA  DISKETTE  ** 

3001  PR I NT "D _ "i 

3002  PRINT"«  LOAD  DATA  PA  DISK  «"  G0SUB7000 : OOSUB  63000 

3003  OPEN  15707157-1"  CLOSE15 

3004  INPUT  "WrøMSI  FILENS  NAVN  WI";Qf  IF  Qf»""  THEN  00T0  100 
3007  Vf-"K/ "♦  Qf+"  7  S,  R" 

3009  D- 1 : 0PEN2  7  8  7  2  7  Vf 

3010  INPUTH27 Nf(D) 

301 1  INPUT027  Af <D) : INPUT#27  Pf (D)  =  INPUT02, Tf <D> : INPUT02*  Df (D) 

3020  IF  Nf(D)-"***r'  THEN  CLOSE  2 : GOTO  100 

3030  D-DM  GOTO  3010 

4000  REM  RET  DATAER  I  KARTOTEK  ** 

4001  print 'mntmmmmammmm  i- 

4005  GOSUB  60000 

4007  PRINT"« _ 

4008  PRINT"«  RET  DATAER  I  KARTOTEK  S" 

4009  GOSUB  55000 

4010  INPUT''«CTDPgiT>fiiTifÉT»ft’T>fÉW'1 , Nf (0) 

4020  INPUT-'iWsTÉWÉWstil"  iRf(O) 

4030  •INPUT'-'ifÉWÉWifiWitÉl" ,  Pf  <G) 

404ø  I  NPUT 1 1  ■»fifitiWiWlWil" ;  Tf  (0) 

4050  INPUT" WmMMm"  7  Df  (0) 

4060  PRINT1  IIJQCCIDCOMIIII  3  ER  DATA  I  ORDEN  (J/N)  B" 

4070  GETXf : I FXf- " N "THEN4000 
4080  IFXfO" J"THEN4070 
4090  GOTO  100 
4120  G0T050050 

5000  REM  **  SØG  I  KARTOTEK  ** 

5001  GOSUB  60000 

5007  PR  I  NT  _ "; 

5008  PRINT"«  SØG  I  KARTOTEK  B" 


5010  PRINT"*rø*SK*K*^^  F1  B  SØO  PA  NAVN  «  F5  B  BW  PA  »V" 

5020  PRINT"*«  F3  B  SØO  PA  ADRESSE  S  F7  B  SØG  PA  TLF. " 

5070  OETXf 

5080  IFXf-"B"THEN10000  REM  SØO  PA  NAVN 
5090  IFXf-"B"THEN20000  REM  SØO  PA  ADRESSE 
5100  IFXf-"lt"THEN30000 ;  REM  SØG  PA  BV 
5110  IFXf-"ir' THEN40000  REM  SØO  PA  TLF. 

5120  0OTO5070 

ree*  print 

7001  PRINT 

7002  PRINT 

7010  PRINT"«  DATA  CATALOO  B"/ 

7020  FORN-1  TO  16 

7030  PRINT"«  B  «  B  3  W  ■ 

7040  NEXT 

7050  PRINT"«  W'i 

7499  RETURN 

9000  REM  *•  SLET  I  KARTOTEK  ** 

9001  PRINT''«B«DCiaMD^^  B" 

9005  OOSUB  60000 

9007  PRINT"« _ "j 

9008  PRINT"«  SLET  DATAER  I  KARTOTEK  B" 

9010  pri><t indtast  nooet  af  navnet  pa  den  data- 

9012  PRINT"*  DER  SKAL  SLETTES." 

9019  INPUT ’'«PCBPiWÉf<W*W"7Nf  N-LEN(Nf)  IF  Nf-""  THEN  IH 

9020  FOR  G-l  TO  D : IFLEFTf (Nf (0) , N)-Nf THEN  OOSUB  9040 
9030  NEXTQ 

9036  GOTO  100 

9040  GOSUB  60000  OOSUB  55000 

9041  print  ac********^^  er  det  den  der  skal  slettes  <j/n>  bm 

9042  Ef-""  OETEf  IFEf-"N"THENRETURN 

9043  IFEf-"J"THEN  9045 

9044  OOTO  9042 

9045  Nf (0)-"" : Af (G)-"" :Pf<G)-M" :Tf(G>- . Df (G)-"" 

9050  GOTO  100 

10000  PRINT"«" 

10010  INPUT"tf**W*TiWiWÉWÉV  ;Nf  N-LEN(Nf)  IFNf-"  "THEN100 
10020  FOR  0-1  TO  D  IFLEFTf (Nf (Q),N)-Nf THEN  00SUB10040 
10030  NEXTO 
10036  OOTO  100 

10040  OOSUB  60000 'OOSUB  55000 

10041  PRINT " /AR  DET  DEN  UD  SØOEDE  <J/N)  B" 

10042  Ef-""  GETEf  IFEf*"N"THENRETURN 

10043  IFEf-"J"THEN10045 
løø44  GOTO  10042 

10045  PRINT'  SKAL  DISSE  DATA  RETTES  (J/N)  B" 

10046  GETXf : IFXf-"N"THEN10050 

10047  IFXf-"J"THEN  G0SUB4000 : G0T01 1150 

10048  GOTO  10046 

10050  PRINT VIL  DU  HAVE  DEN  UD  PA  PRINTEREN  (J/N)  B" 
10055  GET  Zf  IF  Zf *"N"  THEN00T01 1 150 
10060  IF  Zf«"J"  THEN  GOTO  46000 
10065  GOTO  10055 

11150  IF  Ef*" J"  THEN  løø 

11151  GOTO  45000 
20000  PRINT"«" 

20010  I  NPUT  "  JgDarøsWåTSfsfsfsfSTsfsl"  ,  Af  N-LEN  ( Af  )  I F  Af  -  "  "  THEN  1 00 
20020  FOR  0*1  TO  D  IFLEFTf (Af (G) ,N)*AfTHEN  G0SUB20040 
20030  NEXTG 
20036  OOTO  100 

2ø04ø  GOSUB  6øøøø  GOSUB  55000 

20041  PP I  NT "  «**Pl**Bl*HlFlCi!liJ*iI»lcr*gIlXC3  VAR  DET  DEN  UD  SØGEDÉ  (J/N)  S" 

20042  Ef* . GETEf  IFEf*"N"THENRETURN 

20043  I FEf - " J " THEN20045 

20044  GOTO  2øø42 

20045  print" HiivMiDiiBOsnnnnnonRiiMDn a  skal  disse  data  rettes  (J/n)  ■" 

20046  GETXf  IFXf *"N" THEN20050 

20047  I FXf*" J" THEN  G0SUB4000  G0T011150 

20048  GOTO  2øø46 

20050  PRINT" flPlQPlPWCPlrøBlilflPlRMlWWfifia  VIL  DU  HAVE  DEN  UD  PA  PRINTEREN  (J/N)  S" 
20055  GET  Zf  IF  Zf*"N"  THENGC'TOl  1 150 
20060  IF  Zf*"J"  THEN  GOTO  46000 
20065  GOTO  2øø55 

21150  IF  Ef*"J"  THEN  løø 

21151  GOTO  45øØø 
30000  PRINT"«" 

30010  input" mwmaaimmMM" ; Pf  N-LEN(pf ) :  iFPf=""THENiøø 

30020  FOR  G=1  TO  D  IFLEFTf (Pf(G)7N)«PfTHEN  G0SUB30040 
30030  NEXTG 
30036  GOTO  løø 

30041  PRINT VAR  DET  DEN  UD  SØGEDE  <J/N>  B" 
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30042  Ef=""  GETEf  IFEf ="N"THENRETUPN 

30043  I FEf = “ J " THEN3øø45 

30044  GOTO  30042 

30045  PR  I  HT  "  SKAL  DISSE  DATA  RETTES  <J/N>  ■" 

30046  GETXf  IFXf-"N"THEN30050 

30047  IFXt»"J"THEN  G0SUB4000  00T0U150 

30048  GOTO  30046 

3øø5ø  PRINT "  aKrøKrøKrøfWelrørøKfiflKS  IL  DU  HAVE  DEN  UD  PA  PRINTEREN  <J/N>  ■" 
30055  GET  Zt  IF  Zf="N"  THENGOTOl 1 150 
30060  IF  ZS="J"  THEN  GOTO  46øøø 
30065  GOTO  3øø55 

31150  IF  Ef="JM  THEN  løø 

31151  GOTO  45øøø 
4øøøø  PR  I  NT"  a*' 

4øølø  INPUT"  .Tf  N*LEN(Tf>  IFTf  =  "  "THEN  løø 

4øø2ø  FOR  G*1  TO  D  IFLEFTf(Tf(G>,N;=TfTHEN  G0SUB30040 
4øø3ø  NEXTG 
4øø36  GOTO  100 

4øø4ø  GOSUB  6øøøø  GOSUB  55000 

4øø41  PR  I  NT "  aHUHQi'IlWCi'IPIUefflrørøHWfiS  VAR  DET  DEN  UD  SøGEDE  <J/N  >  ■" 

4øø42  Ef=""  GETEf  IFEf ="N"THENRETURN 
4øø43  I FEf s " J “ THEN40045 
40044  GOTO  4øø42 

4øø45  PR  I  NT "  SKAL  DISSE  DATA  RETTES  •  J/N)  ■" 

4øø46  GETXf : IFXf ="N"THEN40050 

40047  IFXf«"J"THEN  G0SUB4øøø  G0T011150 

4øø48  GOTO  10046 

40050  PRINT" S  IL  DU  HRVE  DEN  IJD  PA  PRINTEREN  (JXN)  ■" 
4øø55  GET  Zf  IF  Zf="N"  THENGOTOl 1 150 
40060  IF  Zf*"J"  THEN  GOTO  46000 
4øø65  GOTO  40055 

41150  IF  Ef="J"  THEN  løø 

41151  GOTO  45000 

44ø6ø  IF  ZS-"J"  THEN  GOTO  46000 
45000  PRINT"?]" 

45005  RETURN 
46000  OPEN  4/ 4 
46010  SAf *CHRf < 15) 

46020  PRINT#4, SAf , Nf <G)  /  "  " , Af (G);  "  ",Pf<G);M  TLF.",Tf(G) 

46030  PRINT*4 
46040  CL0SE4 
46050  GOTO  løø 
47øøø  OPEN  4, 4 

47010  SAf*CHRf < 15) ; SOf “CHRf ( 14) 

47011  PRINT#4,  SOf  /  "ERSV  DRTR  64  S.  1541  RDRESSE  UDSKRIFT" 

47012  PRINT#  4, SOf, - - - 

47015  FORB*l  TO  D-l 

47050  IFNf (B)0"-"THEN  PRINT#4, SRf , Nf <B) ; M  "  Af <B>; "  "  Pf(B);"  TLF. ";Tf <B) 

47060  NEXT  B  PRINT#4  CLOSE  4 
47070  GOTO  100 
55000  REM 

55010  PRINT"KBCrø*WiWsf^sW*Tirø"  Nf  (G) 

55020  PR  I  NT "  WafrfiTiWiTiW  ,Af(G) 

55030  PRINT" ■iWiWiTiWiTAW  , Pf (Q) 

55040  PRINT"  WfAHHrsTtWW  , Tf (Q) 

55050  PR  I  NT  "  WsWsWtWsftfsW" ,  Df  <  O  ) 

55060  RETURN 
60000  PRINT"?]"; 

60010  PR I NT "KB" , 

60020  PRINT" -  ; 

60025  PRINT" 

60030  PR  I  NT  "NAVN 
60040  PRINT" 

60050  PR I NT "ADRESSE  i 

60060  PRINT" 

60070  PRINT" BV  : 

60080  PRINT" 

60090  PRINT"TLF.  :  M; 

60100  PRINT"  "; 

60110  PR I NT "DATA  "i 

60120  PRINT"  "i 

60130  PRINT" 

60140  PRINT" 

60150  PRINT"  "i 

60160  PRINT" 

60170  PRINT" 

60180  PRINT" - - 

60200  RETURN 

61000  FOR  T=ø  TO  54  READ  A  POKE  49152+T -fl  NEXT  T  SVS  49152 
61010  FOR  R-0  TO  23  READ  C  POKE  2264+R,  C  POKE  3288+R ,  255-C :  NEXT  R 
61030  RETURN 

61040  DATA120, 169,0, 133,251,133,253, 168, 169-208, 133,252, 169,8 
61050  DATA133-254, 170, 165,1,41,251,133,1, 177, 251 , 145, 253, 200 
6 1 060  DATA208 ,249,230, 252 ,230,254,202-208,242,165,1,9,4,133,1 
61078  DATA173, 24, 208, 41 , 240, 9, 2, 141,24,208,88,96 
61080  REM  DATA  FOR  DE  DANSKE  TEGN  (MA) 

61090  DATA62, 120,216,254,216,216,222,0 

61100  DATA6, 124,206,222,246,230, 124, 192 

61110  DATA24 ,0,60, 102- 126, 102, 102, ø 

62øøø  REM  SAVE  PROGRTMET 

62005  PRINT  ".T 

62010  SAVE"KARTO" ,8 

62015  PRINT 

62020  OPEN  15,8,15 

62030  GET#15, Af  PRINTAf.  IF  AfOCHPf ( 13)THEN  62030 
62040  CLOSE  15  END 

63000  OPEN 1 5 , 8 , 0 , " I" ; CLOSE  15 

63001  0PEN15,8,0,"fø  K/*"  PRINT'  flffliOTiTOn"  W=ø 
63010  FOR  N=ø  TO  30  GET# 15, Af  NEXT 

63020  GET#15, Af ,Bf 
63030  GET#15, Af , Bf 
63ø4ø  GET# 15, Af, Bf 
63050  C=0 

63060  IF  AfO""  THEN  C*ASC<Af> 

63ø7ø  IF  Bf O" "  THEM  C=M>ASC(Bf  )*256 
63090  GET#  15- Bf  IF  STOø  THEN  63200 

63100  IF  BfOCHRf (34)  THEN  63090 

63101  IF  W<8  THEN  PR  I  NT "  ’sTsfl" , 

63102  IF  W*8  THEN  PR I NT " WKMKMrø" 

63103  IF  W>8  THEN  PRINT" , 

63104  IF  W=8  THEN  PR  I  NT "  ;f :f ;T;T:Ti?;T;?;Ts?:TsT:f :W;T:f :T;T:T;1 ' 1 

63105  IF  W«16  THEN  GOTO  63200 

63109  0ET#15 ■ Af  GET# 15, Af 

63110  GET# 15, Bf  IF  BfOCHRf (34) THEN  PRINTBf,  G0T063110 
63120  GET# 15 • Bf  IF  Bf *CHRf < 32)  THEN  63120 

63140  Cf=Cf ♦Bf  GET#15, Bf  IF  Bf<>""  THEN  63140 
63150  PRINT"  "  l-i=l-l+ 1 
63170  IF  ST»ø  THEN63030 
63200  CLOSE 15  RETURN 
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Razzia 


Racerbiler  og  pac-mænd  er 
særdeles  populære  som 
computerspil,  men  Razzia  er 
hverken  ost  eller  biler  i 
gængs  forstand.  Det  er  en  helt 
ny  kombination. 

Du  skal  styre  en  lille  racerbil 
rundt  i  en  labyrint  med  en  ra¬ 
sende  tart,  samtidig  med  at 
du  konstant  risikerer  at  støde 
ind  i  den  anden  bil  (pas  på, 
den  kører  som  en  brækket 
arm).  Turen  koster  buler, 
mens  tlagene  giver  points. 
Når  alle  flag  er  samlet  (og  det 
skal  gå  stærkt,  for  du  er  ikke 
alene),  kommer  et  lille  skilt 
frem  med  teksten  "WAY 
OUT”.  Det  gælder  nu  om  at 
nå  trem  til  skiltet,  inden  det 
forsvinder,  for  at  dukke  op  et 
andet  sted  på  banen  -  stadig 
uden  at  ramle  ind  i  den  an¬ 
den  bil  .  .  .  Lyder  det  svært?  - 
det  er  det! 

Der  er  mange  forskellige  ba¬ 
ner  at  komme  igennem,  in¬ 
den  der  uddeles  bonus.  På 
hver  bane  er  der  forskellige 
ting  at  samle,  og  flere  points 
at  tjene,  Racerbilen  styres 
med  kun  to  knapper,  en 
knap  vil  få  bilen  til  at  dreje  til 
højre  ved  næste  hjørne,  og 
en  knap  vil  få  den  til  at  dreje 
til  venstre .  1 ,  2,  3,  4,  5  drejer  til 
venstre  og  6,  7,  8.  9,  0  drejer  til 
højre.  Det  er  på  den  måde 
muligt  at  bruge  joysticks  som 
bmger  piletasterne,  samtidig 
er  det  også  muligt  at  bruge 
joysticks  af  Kempston-typen. 
Der  er  fire  sværhedsgrader: 
LE  ARNER  er  den  letteste,  EASY 
og  HARD  er  sværere  og 
GRAND  PRIX  er  meget  svær. 
På  nederste  linie  vises  under 
hele  spillet  den  aktuelle  sco¬ 
re,  antal  liv  der  er  tilbage,  det 
niveau  der  spilles  på  (level) 
samt  den  hidtil  højeste  score 
(high-score). 

Indtastning: 

programmet  består  af  to  dele, 
et  kort  BASIC-program  på  fem 
linier  og  ca.  5K  maskinkode. 
Det  smarteste  er  at  taste  ma¬ 
skinkoden  ind  først,  og  der¬ 
næst  de  fem  linier  BASIC,  efter 
denne  opskrift. 


1) Tast  CLEAR  27499  ENTER 
Det  sikrer,  at  der  er  plads  til 
maskinkoden,  og  at  den  ikke 
slettes  ved  et  uheld,  hvis  der 
tastes  for  meget  BASIC  ind  el. 
lign. 

2)  Indtast  en  decimal-loader 
som  vist,  således  at  maskin¬ 
koden  kan  tastes  direkte  ind. 
Det  lille  program  sørger  for  at 
poke  de  4875  tal  ind  i  compu¬ 
terens  RAM-lager  for  adresse 
27500  til  andresse  32375.  For 
hver  10  bytes  maskinkode,  er 
der  udskrevet  et  checksum, 
som  skal  passe  med  den  der 
udskrives  i  loader-program- 
met. 

3)  Når  hele  maskinkodede¬ 
len  er  tastet  ind  og  fundet  ior- 
den,  kan  decimal-loaderen 
slettes  med  NEW.  Det  er  ikke 
farligt  at  bruge  NEW  her,  da 
maskinkoden  er  beskyttet 
over  RAMTOP  efter  CLEAR- 
kommandoen. 

4)  Indtast  nu  de  fem  linier  BA¬ 
SIC  og  skriv  RUN  100  ENTER 
Programmet  bliver  nu  savet 
på  bånd  i  to  dele,  først  den 
korte  stump  BASIC  med  nav¬ 
net  "RAZZIA"  og  dernæst  den 
lange  del  maskinkode  med 
navnet  "WAIT". 

Hvis  alt  er  tastet  korrekt  ind 
skulle  programmet  nu  virke 
som  beskrevet,  men  det  er 
desvæne  ret  sandsynligt  at 
du  har  begået  mindst  en  fejl  i 
de  omkring  8000  indtastnin¬ 
ger,  og  den  ene  fejl  kan  væ¬ 
re  nok  til  at  programmet  ikke 
vil  starte.  Vær  derfor  meget 
omhyggelig  med  at  teste 
checksummerne . 

Skulle  det  være  nødvendigt 
at  save  maskinkoden,  inden 
den  er  tastet  ind,  kan  det  gø¬ 
res  med  SAVE  ' 'maskinkode" 
CODE  27500,4875  ENTER 
Det  kan  loades  igen  med 
CLEAR  27499  ENTER 
LOAD  "  "  CODE  ENTER 
Vi  kan  forsikre  at  den  tid  det 
tager,  at  taste  programmet 
ind  langt  overskygges  af  den 
tid  der  kan  bruges  på  at  spil¬ 
le  det. 


Rolf  V.  Østeigaaid 


0ECIMALL0AOIR  TIL  RAZ IA  (INDTAST  ET  TAL  AF  3AN9EN) 


1»  LET  1-27399 
SS  PRINT  A, 

39  LET  »-S 

49  FOR  l-l  TO  l+9l  INPUT  'DATA  (0«c>  »‘101  POKE  1 . dl  LET  »-1+PEEK  1:  NEXT  1 
39  PRINT  -Sun  •  ‘19 
68  LET  fl 

79  IF  i>-32373  TMEN  STOP 
89  90  TO  29 


BASIC  TIL  RAZIA  (SKRIV  00T0  100  FOR  SAVE) 


10  CLEAR  27499:  INK  7t  PAPER  Øt  FLASH  0:  BRIQHT  0:  OVER  Øl  INVERSE  0:  BORDER  0 
i  CLS 

20  PRINT  AT  10,8; 'RAZIA  IS  LOADING'i  INK  0 

30  BEEP  .1,6:  BEEP  .03,6:  BEEP  .1.13:  BEEP  .03,l3i  BEEP  .1.18 

40  LOAD  "CODE  :  PRINT  USR  27300 

100  SAVE  ’RAZIA*  line  10:  SAVE  CHR*  22KHRR  12-fCHR*  14+CHR*  16+CHR*  7+'UAIT'C0D 
E  27300.4873 


20  Soft  Special 


MASKINKODE  TIL  RAZIA  som  DECIMALLIST  (LAES  CRA  VENSTRE  MOD  HØJRE) 


2006« 

>  i: 

2807« 

)  2! 
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Pirate  Fighter 


COMMO 

DORE 

64 


Med  dette  program  kan  du 
gøre  livet  surt  tor  småpirater 
Programmet  kan  nemlig 
lægge  en  autostartrutine  tor¬ 
an  dine  båndprogrammer. 
Desuden  er  RUNSTOP/RESTO- 
RE  funktionen  sat  ud  at  drift, 
så  snart  programmet  starter 
op.  De  udenlandske  softwa¬ 
rehuse  benytter  sig  i  øvrigt  af 
en  lignende  mtine  til  beskyt¬ 
telse  af  deres  dyre  program¬ 
mer. 

Du  skal  først  save  program¬ 


met,  når  du  har  indtastet  det. 
Dernæst  tekster  du  det  for  fejl. 
Når  det  hele  virker,  skal  du  i 
programmet  indlæse  dét 
program,  du  vil  beskytte.  Der¬ 
efter  saver  du  en  ny  beskyttet 
kopi  af  dit  program  ned  på  et 
nyt  bånd. 

Du  vil  automatisk  få  alle 
meddelelser  om,  hvad  du 
skal  gøre  i  hver  del  af  pro¬ 
grammet.  Egentlig  forklaring 
er  derfor  unødvendig. 

Kristian  Otosen 


\  7 

=77 


lø  REM  *  SOFTWARE-BESKYTTELSE  *  \ 

20  REM  <C>  KRISTIAN  OTTØSEN  1983 

3ø  REM  TLF.  06-992362  Å 

4ø  REM  KJ  f) 

5ø  P0KE5328 1 , 0 : PR I NT "  [M"  IH  / 

60  PRINT"  i - 1";  |m/' 

7ø  PR  I  NT  "I  SOFTWARE-BESKVTTELSE  I";  Vej 

80  PRINT" I  <C>  KRISTIAN  OTOSEN  1985  I"; 

9ø  PRINT"  1 - KJ 

løø  PR I NT "W  VENT!"  /ÆM 

llø  F0RX=49408T049477 :  READDX 

12ø  POKEX ,  DX  '■  A=R+DX :  NEXT  Jr 

13ø  IFA<>757øTHENPRINT"FEJL  I  DATA  1 " : END  r  t£\  V 

14ø  F0RX=49664T049687:READDX  E\\  * 

150  POKEX  ,  DX  '■  A=A+DX :  NEXT  Kjtf  1 2 

16ø  IFAOl  1324THENPRINT"FEJL  I  DATA  2"-  END  iR\  U 

170  F0RX=49888T049920 :  READDX 

180  POKEX , DX : R=A+DX ■ NEXT  f  Y&U 

190  IFAOl  3332THENPR I  NT "  FE  JL  I  DATA  3":  END  7  \^\\ 

2øø  F0RX=5øøøøT05ølø6 : READDX  /  \*\\ 

21ø  POKEX,  DX :  R=A+DX :  NEXT  /  fa  Si 

220  I FA026662THENPR I  NT "  FEJL  I  DATA  4":  END  f  fy  11 

230  PRINT" JHKL ARGøR  ORIGINAL  BRAND  OG  TRVK  <RETURN>"  /  y  l  SiL 

24ø  POKE  198,ø  i  yV!r 

25ø  GETA$ :  IFA*="  "THEN250  (fv 

26ø  PR  I  NT  "»SYS  500004"  :  P0KE198, 2  =  P0KE631 , 19  =  P0KE632, 13 
27ø  REM  *****  DATA  1  ***** 

28ø  DATA  141,ø, 192, 169,87, 141,36,3, 169,241,141,37,3, 169,5, 133, 198, 169, 19, 141 
29ø  DATA  119,2, 169, e2, 141,120,2, 169,85, 141,121,2, 169,78, 141,122,2, 169, 13, 141 
300  DATA  123,2, 169,225, 141,40,3, 142,1,192, 162,0, 169,32,157,0,4,232,208,250 
310  DATA  173,ø, 192, 174, 1, 192,76,87,241,0 
32ø  REM  *****  DATA  2  ***** 

330  DATA  162,224, 189,0, 194,32,210,255,232,208,247, 169,0, 133, 198,32 
34ø  DATA  228,255,201,0,248,249,96,0 
350  REM  *****  DATA  3  ***** 

360  DATA  13, 13, 83, 75, 73, 70, 84, 32, 66, 65, 65, 78, 68, 32, 79, 71 , 32, 84, 82, 89, 75, 32 
370  DATA  60,82,69,84,85,82,78,62,32,13,0 
380  REM  *****  DATA  4  **44* 

390  DATA  169,1,170, 168,32, 186,255, 169,0,32, 189,255, 169,0,32,213,255,32,0, 194 
4øø  DATA  162,0,189,65,3, 157,0, 196,232,208,247, 162, ø, 189,0, 193, 157, 16, 196,232 
410  DATA  208,247, 169,81,141,36,3, 169,3, 141,37,3, 169,1,170, 168,32, 186,255, 169 
420  DATA  255, 162,0, 160, 196,32, 189,255, 169,36, 133,251,169,3, 133,252, 169,251 
430  DATA  174,63,3, 172,64,3,32,216,255,169,87, 141,36,3, 169,241,141,37,3,32, 129 
44ø  DATA  255,32,0,194,76,80,195,0 
450  END 


w 
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Priksamler 
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0  GO  f  O  -føøo 

1  PR  I  NT  ".T  PUKfcot.fci . /UM  '*UTl»20MØ 

2  P0KE3687*.  15 

3  SL-0  H-7  702 

7  rif«"eeøøøø" 

8  P$»"øøei8ø" 

10  P0KE*5ø.«:nø  Ft_i*t«u  iui 
12  V-ø 

15  T-INTvknD*  l  >*:>ø*  '♦7/^’d  if- 1 — 7 724 •  Hk N 1 5 


18  R«384øø-mT-?68*j> 

1«  POKEk*  7 
2 O  POKET.lø^ 

22  PRINT  **sl 
25  NEXl 
27  GO T 03øø 

30  GEFm»  G0T02500 

31  POKEH. 32 

32  IFHf*"W“THFNH=H-72 

33  IFø<77ø2THENløøø 

34  IFm*=‘'H“THENh«m-i 

35  IFØ<77ø2rMKNløøø 
38  IFAfatlD,lTHENfl«H*l 

37  1 F  H>8 1 85THEN 1 000 

38  IFrtS*“2“ IHENH*H+22 


39  I FH>8 1 85THEN 1 øøø 
4ø  IFHf =‘‘H"THEN70w 
45  IFP£Eluft>-lø2THENløMø 
48  IFPEEMH7-46THENCS-CS+1  SC-CS*l  G0T0380 

47  R=384øø*-<H-768ø'  POKER.  1  POKEH. 4^ 

48  PRINTH«M‘>riS>>VAffiMMr.SC;  IF1 If=P#lHEN7øø 
5ø  G0T030 

3øø  F0RG-ØT025 

310  T-1NURND*  I>*5ø6>+778.x  !► r«/7ø/THEN3lø 
312  R-384øø*lT-7688> 

'il  4  Pi'ik  ft,; 

315  1FPEEK( T )«48THEN31ø 
328  PORET. 46 
33ø  NEXT 

335  T I 3® "øøøøøø" 

34ø  GOTO  3ø 
5øø  P0RE36878.10 
585  PORE 36876. 255 
51ø  F0RU-1T050  NEXT 
515  P0RE36878.0 
528  GOTO  47 

700  PR  I  NT  “73"  lFPf*"08øtØØ"  TMENPf -“000045"  Tlf*"ø00ø8ø  “  H» 7702  GOTO 10 

710  IFPf="Uøøø45 "lHEHPf="øøøø30"  Uf*"Høeøøø"  H« 7702  GOTu 10 

720  IFPf»"øøØø3ø" rH£NP»»-øøHøl5"  1 lf= “øøøøøø"  H- 7 702  GOTO 10 

730  1 F  Pf = “ øøøø 1 5" THEN 1 000 

74ø  T I »="øøøøøø". GOTOlø 

1000  P0KE36878.18 

løøl  F0R0-255 Tu 1 288 TEP-1 

1802  P0KE36876.0  NEXl 

løø3  P0KE36878.0 

1004  1FSC>HI THENH1-SC 

løø9  PRINT" 71»il«UW»WAMiCTiHNE  UVE*'* 

lølø  PRINT"  HMWsfsTsTiTjt^i  QNfc  » "SC 

1015  PRINT"**  HI-SCORE  »“HI 

1 020  PRINT"  I  NVT  SPIL  i.l/Ht  V 

1038  GETHf  1FH»='T HEN 1030 

1040  I FHf - “ J " THENSC-ø  CS-8 ■ GOT  01 20ø 

1058  IFHf-"N"THENENB 

1060  GOTO 1030 


> 


I  dette  spil  til  en  standard 
V1C-20  skal  du  samle  små 
prikker  på  skærmen  uden  at 
ramme  de  blokke,  der  også 
er  på  skærmen,  da  du  vil  dø 
at  dette. 

Rammer  du  siderne  dør  du 
også.  Spillet  har  indbygget 
instruktion.  □ 

Kim  Rahbæk  Ahier 


1200  PR  I  NT  ".T 

1201  PRINT'-niWtfÆjNSkFR  DU  HT  SEÆfsWiTxTsliNTRUKT  IONEN  ?" 

1218  PRINT" JMMMSVHk  MfcO  J  ELLER  N  Hf-" 

1215  GETHf  i  F  Hf = *' "  THEN  1 2 1 5 
1220  IFHf«"J"THEN20øØ 

1238  IFH*-"N"THENPRINf-.T*  Sc«ø  L S- O  GO 10  2368 
1235  IFL=1THEN263m 
1240  GOTO  1208 
2øøØ  P0KE36879.170 

2018  PR1NT“.~1»*«**4  STHR  RhlEN  *♦**•", 

2028  PRINT" * - . 

2038  PRINT' *1*1  DETTE  SPIL  SKni.  DU  'sTVRE  EN  bTJERNE  RUND  TI  EN  LHBVR1NT." 
2ø4ø  PRINT-DU  FHHR  POINTS  VED  HT  SPISE'  PRIKKERNE. “ 

2050  PRINT" III  DEN  FØRSTE  OMOHNG  HH*  IlU  1  MINUT  TIL  HT  SHMLE  POINTS  I." 
2060  PR  I NT “I  HNDEN  OMGHNG  HHk  DU  45  SER.  OSV." 

2070  PRINT'lHVIS  DU  OHHR  IND  I  VhEGGENE  DøR  DU.  NSHh  PhS  PFlH  I" 

2080  PRINT"*" 

2090  PRINT'  331*  TRVK  EN  TRST 
2108  PRINT'"*  TRVK  EN  THST 
2110  GETHf  IFHf-""THEN209ø 

2200  F0RG-46T08STEP-2  PORE 36883. G  EURH= 1 1040  NEXT  NEXT 

23øø  PRINT" .”JU*HV  1 S  DU  HHk  TrtGEl  ØLLEDE  PRIkkER  DU  KmN  FØR  TIDEN  UDLØBER  ■ 

Dh  P  ØH  H 

2301  PRINT-DETTE  VIL  RESULTERE  I  Hl  DU  STRØKS  GHHR  VIDERE  TIL  NHESTE 
HNG.  " 

2305  PRINT" ***5TVREKNØPPER  " 

2310  PRINT"  OP  «'W'" 

2320  PRINT"  NED  •'l* 

2330  PRINT"  VENSTRE-  0'" 

2335  PRINT"  HØJRE  «'D" 

2337  F0RG-ØT046STEP2  P0KE36883.G  FORH-1 T04ø  NEXT  NEXT 

2340  PRINT"  llttl1 

2341  PRINT  '"Tal*  TRVK  EN  TØST 

2342  PRINT'"*  TRVK  EN  TØST 

2343  GETHf  IFHf-“ "THEN2341 

2344  F0RG-46T00S TEP-2  P0KE36883 . G  FORH- 1 T04*  NEXT  NEXT 
2360  PRINT".?' 

2370  PRINT" *5VØ£RHE DSGRHD  <l-5>". 

2373  F0RG-ØT046STEP2  P0KE3688 f , G  FORH- 1 T04ø  NEXT  NEXT 

2374  INPUTL 

2375  SC-ø 

2380  IFL>50RL<lTHEN236ø 
2390  PR  I  NT". T 
24øø  GOTO  2 
2500  IPHf-" " THEN45 

2510  I FHf- "fi" THENV-V- 1  IFVløTHENV-V-M  gOTOIØHø 
2520  I FRf«"D" THENV-V'*' 1  I FV>71 THENV-V- 1  GOTUløøø 
2530  GOTO  31 

2600  PRINT '  STHR  RHCEM 

2610  PRINT"« - 

2620  L-l  G0T01201 
2630  GOTO  1 
3000  T-135 

3010  PRINT "3"  P0KE36879.8 
3020  F0RH-7680T07701 
3030  P0KEH.42 

3040  P0KE36878.10  P0KE36875.T  FORV-1 10188  NEXl V  P0KE36878.0  l=T*-l  NEXTH 
3050  F0RH-7723T08185STEP22 
3060  POKEH • 42 

3070  P0KE36878.10  P0KE3687S, »  FuRV-110100 -NEXTV  PuKE 36878,0  T-T+l  NEXTH 
3088  F0RH=8 1 84  T08 1 64STEP- 1 
3090  POKEH, 42 

31øø  P0KE36878. 18  P0KE36875. 1  FORV-1 lul Hø  NEXl V  POKF 36*78 . 0  T-T+l-  NEXTH 
311ø  FORH-8 1 42T07702STEP-22 
3120  POKEH. 42 

3130  P0KE36878, 10  P0KE36875. i  FURV-lTOlØø  NEXTV  P0KE36878.0  T-T+l  NEXTH 
3200  P0KE36878.0  P0KE36875.0 
3308  G0T02608 

Søøø  REil  HH  DE  BV  KIM  HHLER 


Stopur 


■Xfl'i 


CBES*- 

arcv 

TRUM 


■  Det  er  tit,  man  har  brug  tor 
at  tage  tid  på  en  bestemt  ting . 
Det  kan  f.eks.  være,  hvor 
lang  tid  man  kan  holde  sig  i 
luften  i  flykampspil.  eller  hvor 
hurtig  man  er  til  at  løse  en 
krydsord. 

Med  dette  Spectrum  program 
skaber  du  dit  eget  ur  med 
indbygget  stopursfunktion.  Li¬ 
nierne  10,  20  og  30  nulstiller 
en  indbygget  tæller.  I  linie 
200  læser  vi,  hvor  langt  uret 
har  talt  2  gange.  Vi  ønsker 
nemlig  ikke  at  læse  3-bytes 
tælleren  midt  i  et  skift.  □ 

Karsten  Hansen 


1  REM  LINIERNE  10-30  ANBRINGES 
OER  HUOR  TIDTAGNINGEN  SKAL  BEGTNDE. 

3  REM  LINIERNE  60-200  ANBRINGES  DER  H 
00R  TIOTAGNiNGEN  SKAl  SLUTTE. 

S  REM  ’BEEP’  ROUTINER  UIL  GØRE  TIDTAG 
NI  NGEN  UKORREKT. 

10  POKE  23672,0 
20  POKE  23623,0 
30  POKE  23674,0 
40  POR  i-- 1  TO  1000 
50  NEXT  ; 

60  GO  SUB  løø:  PRINT  I  NT  (a/60);''  MI  NU 
T"  ;  f  "TER’'  AND  INT  Ca/60)<>1);"  "iINT  Ca- 
60*INT  Ca/60));"  SEKUNDER" 

70  STOP 

100  GO  SUB  200:  LET  b=a:  GO  SUB  200:  IF 
o>a  THEN  LET  a»b 
110  RETURN 

200  LET  a=(PEEK  23674*65536»PEEK  23672t 
PEEK  23673*2561/50:  RETURN 
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5XKAJ 


■  1 5  x  KAJ  skal  du  med  en  lil¬ 
le  kugle  fjerne  alle  krydser, 
som  befinder  sig  inden  i  nav¬ 
net  5  x  KAJ,  som  fylder  hele 
skærmen. 

Alle  krydser  har  forbindelse 
med  hinanden,  så  du  kan 
rydde  dem  alle  af  vejen.  Pas 
på  at  du  ikke  støder  ind  i 
væggen  for  mange  gange, 
da  du  kan  risikere  at  ende  di¬ 
ne  dage  med  en  bundrekord 
af  rang. 

I  øvrigt  gælder  det  om  at  fjer¬ 
ne  alle  krydserne  så  hurtigt 
som  muligt,  da  der  bliver  ta¬ 
get  tid  på  denne  særlige  dis¬ 
ciplin  i  CBM-time.n 

-  Nils  Lausten 


4  C-99999 

3  PRINT-rr  P0KE53280.1  P0KE33281 , 1 

7  OOSUB79 

8  V-0  B-ø 

9  N-0  u-ø 

10  X-PEEK<197> 

20  IFX-62THENN-N-40  I FPEEK <11 03+N )  « 1 02THEHN*N+40  G0SUB60001 
30  IFX-10THENN-N+40  IFPEEK<1103->N>-102TMENN«N-40  O0SUB60001 
40  IFX«i*7THENN»N-l  I  FPEEK  (  1 iø3+N)«102THEMN«MM  G0SUB60001 
30  IFX«44THENN«N+1  IFPEEK<1105^N)«102THENN«H-l  G0SUB60001 
60  IFNCØTHENN-Ø 
63  IFN>999THENN«999 

67  I FPEEK < 1 103+N>-43THENV-V+1  IFV-338THENP0KE33280. 2  P0KE33281 - 2  G0T030000 

68  POKE 1 1 03*N  ,81  P0KE33377+N ,  2 
70  P0KE1 103*N, 32 

76  8-B+l 

77  GOTO 10 

79  print  mmmmmmmmKamaxmmmmmwm  ■■  i  nu  i  mm  1 1  y 

82 

83  print ♦» 

83  PR  I  NT 

86  PR  I  NT 

87  PRINT"^  +  MBBWB«a**»**^«-«-^*+**+aM*Wk«-B 

88  PRINTM*  +  ||||||IH^Ma»^  +  +  *+H^*l^  +  IIHaiBK+«-r‘ 

90  PRINT MWK MK 

93  PR  I  NT 

94  PRINT"«WW^***MW^**»»»*+^+«k*IWlHMM 
93  PR  I  NT 

96  PRINT ” 

97  PR  I  NT  SK  SK  ♦O'1 

99  PR  I  NT 

100  PRINT  "  ir  3ST 

200  RETURN 

30000  PRINT-.T’  PRINTTftB(2øØ) 

30001  PRINT"  »RRVQS  DU  GJORDE  DET  PRR" , B • "TIDSENHEDER" 

30004  IFB<CTHEN  C-B 
30003  PR I NT HH IONSCORE  “,C 

30007  PRINT  PRINT  PRINT“flNTRL  KRNTSTøDN INGER  ",W  IFW>OTHENO»W 

30008  PRINT  PR I NT “REKORD  I  KRNTSTØDN I NGER  “,0, "(PINLIGT)" 

30009  PRINT  PRINT" IOEN7" 

30010  OETR*  IFR*  •“ J“THEN3 
50020  00T0300IØ 

60001  P0KE34296-13  P0KE34277,0  P0KE34278.248  P0KÉ34273-4  P0KE34272 , 20S 

60002  P0KE34276, 17  FORT« 1  TO 1 Øø  NEXT  P0KE34276, 16 

60803  M-W+l  RETURN 


Morsetræner 


SPEC¬ 

TRUM 


Kan  du  morsealfabetet? 

Hvis  ikke,  har  du  her  chan¬ 
cen  for  at  få  oversat  fra  nor¬ 
malt  sprog  til  morsekoder. 
Indtast  blot  ordet  eller  sætnin¬ 
gen,  så  viser  Spectrum  koder¬ 
ne  på  skærmen. 

Jens  Ulrik  Pedersen 


c=Ar  ■ 


20  REM  OMFORMER  DK  TIL  dfi&Hi 
30  POKE  23658 , 8  POKE  23609,10 

0 

40  BORDER  0:  PRPER  0  INK  7:  C 
L5  :  PRINT  RT  8,8,  FLRSH  1; “MORS 

=  eUS)(5?6§T1ii?^^ggRoflN8K  TI 

L  SiROIM  b(160):  DIM  »15001 
70  LET  k  *«'”*  :  LET  V*r»ø 
SØ  OO  SUS  370  . 

90  PRINT  RT  13,0, "NUL,  *,  *  El 
NOES  UNDER  I  N,  E ,  R"  PRUSE  100 
100  RESTORE  110:  FOR  X»65  TO  90 
:  RERD  »:  LET  b(X)»S:  NEXT  X 


x»*8  TO  57 

i:R5pp‘;øfeiTx^S’-UeB"pøøsTi 

*130  DRTR  2221 . 12322,11383,11132 
,11112,11111,21111, 32111 ,23311,3 
3321 

1*0  LET  b(187) •32333.  LET  bl  1*8 
! »1212  LET  b (1*4) »12213:  LET  bl 
*6)  »111111:  LET  blUI  »222222;  LE 
T  b 163) »112211 
1SØ  LET  b (S) »1 

160  LET  l*."":  CLS  ;  INPUT  "DIN 
SftTN. ; "i  LINE  »« 

170  PRINT  RT  0,0, »»' • 

180  FOR  »=1  TO  LEN  «• 

190  IF  »«l»)»"  "  THEN  LET  k«»k* 
LET  v*r»i:  OO  TO  2*0 
200  IF  *>1  RND  var»ø  THEN  LET  » 
»»»»♦"3" 

310  LET  v*r»ø 

220  LET  *  (ft )  «b  I  CODE  Mit)) 

230  LET  k«»k«*STR*  ««S) 

2*0  NEXT  S 

250  FOR  *»1  TO  LEN  k  C 


260  IF  k  t  (S )  •" i"  THEN  LET  ktl«) 
•CHR*  IS* 

270  IF  kil*) »"2"  THEN  LET  k«(S> 
•CHR«  155 

350  IF  k«(*)»"3"  THEN  LET  kt(S> 
»CHR«  150 

290  IF  k*(>)»"*''  THEN  LET  k«(t) 
•CHR*  159 
300  NEXT  S 

310  LET  k(»k«tCHR«  159 

330  BEipT.!?10:  BEEP  .1,20;  BEE 
P  ,2,25 

3*0  INPUT  "ØNSKES  DETTE  P*  PRIN 
TER  7  •';»*:  IF  »*»''J"  THEN  LPRIN 

T3sS  INPUT  "'RUN'  IGEN  7  “ I  i  * :  I 
F  »*<>''  N'  THEN  00  TO  160 
360  STOP 

370  LET  0R1»BIN  00100100:  LET  G 
R2»BIN  001000:  LET  0R3»BIN  00100 
100:  LET  0R*»BIN  00100100 
380  RESTORE  *øø  FOR  C»1  TO  7: 
RERD  U«:  FOR  D»0  TO  7:  RERD  I:  P. 
OKE  USR  U«+D , I ;  BEEP  .002, D»C 
390  NEXT  D:  NEXT  C:  RETURN 
*00  DRTR  "K“ ,0,0,0, BIN  øøølløøø 
, BIN  00011000,0,0,0:  REH  . 

*10  DRTR  "L" ,0,0,0, BIN  01111110 
,BIN  01111110,0,0,0:  REH  - 
«3ø  DRTR  "P  , 0 , GR  1 , GR1 , ORI , ORI , 
GR  1 , ORI , 0 :  REH  II 
*30  DRTR  "0" ,ø,GR3,OR2,OR3,OR2, 

GR2 , GR2 , 0 :  REH  I  _ 

**0  DRTR  "E" , 0 , BIN  00110000 , BIN 
01001110 , BIN  01001000 , BIN  01111 
100, BIN  0 100 1000 , BIN  01001110,0. 
REM  RE 

*50  DRTR  "R” , BIN  00011000,0, BIN 
^00011000 , gR3 , BIN  00111100, 0R3, 0 

R*60  DRTR  ''  N”  ,  0  ,  BIN  øøølløøø, OR* 

, OR*, OR*, OR*, BIN  00011000,0:  REM 
NUL (O) 

*70  RETURN 
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Spøgelser  på 

motoivejen 


■  For  at  dette  spil  kan  arbej¬ 
de  hurtigt  og  ettektivt  på  en 
Lambda  datamat,  er  det 
skrevet  helt  i  maskinkode. 
Kort  fortalt  er  din  opgave  at 
styre  din  tormel- 1  racer  uden 
om  de  spøgelser,  der  dukker 
op.  Ofte  er  spøgelserne  i  flok, 
så  pas  på,  at  du  ikke  pludse¬ 
lig  er  omringet  af  dem! 

Inden  programmet  tastes  ind, 
bruger  du  lølgende  lille  Hex- 
loader: 

Når  programmet  er  på  plads, 
skriver  du  RUN,  og  indtaster 
tallene  i  højre  kolonne  for 
maskinkoden: 

Når  alle  tal  er  inde,  bruger  du 
BREAK,  skriver  POKE  17303,0 
og  erstatter  linierne  10  til  80 
med  det  nye  program,  Des¬ 
uden  tilføjer  du  linie  90  til 
110.  Når  du  er  færdig,  bør  dit 
program  se  ud  som  vist. 
Programmet  kan  ligge  i  en  2 
K  Lambda  (uden  RAM-pak- 
ke),  og  startes  med  RUN.D 

Jakob  Gaaidsted 


1  REM . (98  punktummer) 

I0X-17307 
20  INPUT  AS 
30  SCROLL 
40  PRINT  X:"-  "  AS 

50  POKE  X.  1 6 »CODE  AS  +  CODE  AS<2>476 
60  X=X  +  1 
70  AS  =  A$(3  TO) 

80  GOTO  20 +(30  AND  AS<  >  "") 


ØEREH  S  .  RND.%'00  7  i  CL 5  •  STEP 
RnDR  THEN  GOSUB  .  NEU  SflSN  S .  G'LÆ 
M  THEM  F  .  RETURN  4.  IF  U'5  THEN  P 
ETURN  COPY  C=  RETURN  LIST  SF P 
ETURN 

3202  r-1  RETURN  =  _ 

3+93  *»■.'  ,  RND5LRND  GOSUB  SURL  ^ 
PRINT  YI  •  LET  RETURN  CiRTN  5.RNDØ 

F PLOT  O  H . 

10  PRINT  "INDTRST  SUflERHEOSORfl 
O  (0-20000) . " 

20  INPUT  S 

30  IF  3  .0  OR  S  >20000  THEN  GOTO 
20 

40  RAND  20001 -S  _ 

50  PRINT  "TRYK  ENTER  FOR  sTRRT 

60  IF  INKEY  $  <  >CHR  $  113  THEN  GC 
TO  60 

70  C-L S 

80  U=USR  17307 

90  PRINT  RT  0 , 10; "GRME  OUER" 
100  PRUSE  500 
110  RUN 


LD  HL.  17245 
LDB.6 
LDB.6 
LD(HL),28 
INC  HL 
DJ  NZ.-5 
LD  BC. 17218 
LDH.64 
LDA.R 
AND  A.31 
ADD  A.  159 
LDL.A 
LD(HL).  15 
LDHL,(  16434) 
DEC  HL 
LDA.H 
CPA.O 
JRNZ.-6 
LD  A.(16421) 
CP  A.255 
JRZ.20 
CP  A.240 
JR  C. 9 
DEC  BC 
LD  A.(BC) 
CPA.119 
JR  NZ,  10 
INC  BC 
JR  7 


215D43 

0606 

0606 

361C 

23 

10FB 

014243 

2640 

ED5F 

E61F 

C69F 

6F 

360F 

2A3240 

2B 

70 

FEOO 

20FA 

3A2540 

FEFF 

2814 

FEFO 

3809 

OB 

0A 

FE76 

200A 

03 

1807 


INC  BC 
LD  A.(BC) 
CPA.118 
JR  NZ,  1 
DEC  BC 

PUSH  BC 
LDBC.692 
LD  DE.  17234 
LD  HL. 17201 
LDDR 
POP  BC 
LD  A.(BC) 
PUSH  AF 
LD  1.8 
LD(BC).A 
POP  AF 
CP  A,  15 
RETZ 

LD  HL,  17250 
LD  A.(HL) 

CP  A.37 
JRNZ.4 
LD  (HL).  28 
DEC  HL 
JR -10 
INC  (HL) 

JR -85 
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Amclock 


PROGRAM  No.  1 


1  ’  Initialiser  DIGI-CLOCK 

2  GOSUB  10000 

3  ’  Herfra  os  op  til  DIGI-CLOCK  lisser  MAIN  PROGRAM 

10000  ’  4<  Hofof:  !+<  >♦<  4<  4: 41 2 3  ♦  4<  4t  4*  >♦<  +■•  4  •  >f:  4=  4  »ft  4: 4<  41  +:  4'  4  f  4:  >f:  4  4t  4",  4<  4;  4<  4  :  4"-  4( 

10010  »  **  DIGI-CLOCK  ** 

10020  *  **  (c)  Kasper  Vad  ** 

10030  ’  **  (c)  d.  08-01-1985  ** 

10040  1  Hoto+n+cHo+atototo+otot:******************:****:*:***** 

løø5ø  »  Start  procedure 

10080  MODE  2 

10070  ’  Set  clock 

10030  LOCATE  2. 2s  PRINT"DIGI-CLOCK" 

10090  LOCATE  2, 5i  PRINT  "Set  clock:" 

10100  LOCATE  2.8 

10110  INPUT  “Input  timer  (0-23)  "‘.hrs  :  IF  hrs<0  OR  hrs>23  THEN  10100 
10120  LOCATE  2. 10 

10130  INPUT  "Input  minutter  (0-59)  "Smns  :  IF  mns<0  OR  mns>59  THEN  10120 
10140  LOCATE  2,12 

10150  INPUT  "Input  sekunder  (0-59)  " i sec  :  IF  sec (0  OR  sec>59  THEN  10140 

10160  LOCATE  2,14:  PRINT  "er  " : hrs i mns ; sec 5 "  korrekt  J/N  ?" 

10170  kor*=INKEY*:korr*=LOWER*(kor*) :  IF  korr*=""  THEN  10170 
10130  IF  korr*=“n"  THEN  10060 
10190  CLS 

10200  ’  Interrupt  kommando 
10210  EVERY  50  GOSUB  10230 


Der  har  otte  været  vist  clock 
(ur)  programmer  til  torskellige 
computere,  men  ottest  er  dis¬ 
se  programmer  ganske  ubru¬ 
gelige  i  mere  praktiske 
sammenhænge . 

Dette  lille  program  bruger 
Amstrads  smarte  interrupt 
kommando  EVERY,  se  linie 
10210, 

Ved  opstart  springer  man  til 
»DIGICLOCK«,  hvor  uret  indstil¬ 
les,  Deretter  returneres  til  linie 
3,  hvorfra  ens  eget  program 
kan  ligge.  Det  er  MAIN- 
PROGRAM.  Under  udtørelsen 
at  MAIN-PROGAM  springes 
der  så  én  gang  i  sekundet  til 
»DIGI-CLOCK«  hvor  uret  så  op¬ 
dateres. 

Nu  er  det  så  meningen,  at 
man  i  »MAIN-PROGRAM«  kan 
skrive  på  skærmen,  hvad 
klokken  er,  ved  hjælp  af  de 
tre  variabler  hrs  (timer),  mns 
(minutter)  og  sec  (sekunder), 
til  at  illustrere  dette  har  vi  la¬ 
vet  program  2.  Tast  program 
1  og  2  ind  og  kør  dem  samti¬ 
dig. 

Brugeren  kan  desuden  tilføje 
forskellige  andre  finesser  til  sit 
program,  t.eks.  en  alarm 
funktion,  og  man  kan  lade  et 
vindue  på  skærmen  vise, 
hvad  klokken  er. 

Vær  opmærksom  på  én  ting. 
hvis  du  under  opdateringen 
at  uret  skal  styre  andre  ting, 
t.eks.  en  alarm  kan  du  tå 
problemer  med  tiden.  Husk, 
at  jo  mere  der  skal  laves  un¬ 
der  interruptet,  jo  mindre  tid 
bliver  der  til  at  eksekvere 
M  AIN-PROGR  AMMET . 

Kasper  Vad 


10220  ’  RETURN  TO  MAIN  PROGRAM  :  RETURN 
10230  ’  Opdatering  af  uret 

10240  sec=sec+l:  IF  sec (60  THEN  RETURN  ELSE  sec=0 
10250  mns=mns+i:  IF  mns  (60  THEN  RETURN  ELSE  mns=0 
10260  hrs=hrs+l :  IF  hrs(24  THEN  RETURN  ELSE  hrs=0 
10270  RETURN 

PROGAM  No. 2 

100  LOCATE  2,2:  PRINT  hrs 
110  LOCATE  5,2:  PRINT  mns 
120  LOCATE  8,2:  PRINT  sec 
130  GOTO  100 


Programmer: 

Samtlige  aftrykte  listninger 
er  afprøvede  tør  offentlig¬ 
gørelse  Forlaget  betaler 
skattefrit  op  til  1000  kroner 
for  godkendte  læserpro¬ 
grammer  Forlaget  har  ret  til 
at  aftrykke  godkendte  pro¬ 
grammer  i  bladet  og  offent¬ 
liggøre  dem  pd  andre 
lagermedia 


Sott  Special  27 


■  Du  ei  pilot  i  en  jordisk 
kampilyver  og  bliver  under 
en  tredelig  rutinetur  kaldt 
over  radioen:  En  klynge 
ukendte  og  uidentiticerbare 
flyvende  objekter  nærmer  sig 
Jorden  i  hurtig  tart.  Udslet 
dem. 

De  indtrængende  UFO'er  er 
ikke  helt  nemme  at  omgås. 
F.eks.  viser  det  sig.  at  de  skal 
have  mindst  25  fuldtræffere, 
før  de  eksploderer.  Forsvarslø¬ 
se  er  de  heller  ikke.  Pas  på, 
de  bider  fra  sig  og  kan  nemt 
uskadeliggøre  dig,  hvis  du 
bliver  for  kåd . 

Men,  du  har  selvfølgelig  fald¬ 
skærmen  som  sikkerhed.  El¬ 
ler  har  du?  Man  har  jo  før  hørt 
historier  om,  at  faldskærme 
glemmer  at  lolde  sig  ud. 


Slap  dog  Pare  af.  I  program¬ 
met  er  indbygget  en  sidste 
redning.  Nemlig  at  du  lander 
din  kampflyver  i  en  kæmpe 
høstak.  Det  giver  ganske  vist 
halmstrå  i  næsen,  men  spa¬ 
rer  dig  en  brådden  pande. 
Du  får  10  points,  hver  gang 
du  rammer  plet  på  en  UFO  og 
1 00  points  ekstra,  hvis  du  kan 
pumpe  så  meget  bly  i  den,  at 
den  eksploderer. 

Kort  sagt  et  fornøjeligt  spil,  der 
kan  hjælpe  lidt  over  de  kede-, 
lige  pauser  på  kontoret  eller 
derhjemme.  Spillet  kører  på 
en  IBM  PC  eller  kompatibel, 
der  har  grafisk  adapter  ind¬ 
bygget.  □ 

Erik  Hougaard  og 
Michael  Andersen 


1  ru  »  ■’  *  *****  ******************************* 
.1001  ’  *  UFO  JAGT  FOR  IBM  PC  MED  BASICA  OG  * 


1002  '*  GRAFIK  ADAPTER. SKREVET  AF  * 

1003  ’*  ER. II  HOUGAARD  I  JANUAR  1985  * 

1004  ’*  BRUG  4  i-  <6  TIL.  AT  FLYTTE  FLY  * 

1005  ' *  :S  TIL  Al  SKYDE  MED.  * 

1006  ' *  TRYK  NUMLOCJO  FØR  DER  TRYKKES  * 

1 007  ’ *  < RUN  .  * 


1008  ' ****************************  ********* 

1009  KEY  OF  F : D I M  EKS ( 10000) s L 1=5 

1010  DEF  FN3Z (X, Y) = (4+INT ( (X+7) /8> »Y> /2 

1011  READ  X , Y : N=FNSZ  <  X , Y) 

1012  DIM  PLANE 7.  ( N ) 

1 0 1 3  PLANE7.  <  O )  =  X :  PLANE7.  <  1  >  =Y 


PCombc 


1014  FOR  1=2  TO  N:  READ  PLANE7.  ( I )  :  NFXT  I 

1015  DA  f  A  S4-I38,  ?*HB,  ?<H5555,  &H5555,  8445555,  ?<H5555,  &H5555,  &H5555 

1 0 1 6  DA  1  A  S-HA555 ,  ?<H5555 ,  8<H5555 .  ?*H5655 ,  ?,HD5A5 ,  «<HA956 ,  &H5555 ,  ?<H A55A 

1017  DATA  S4H5ADS,  &H550A,  &H5A55,  &HD5A5,  &H2A8,  &HAAAA,  8<HF5AF ,  &HAAEA 

1018  DATA  ?<HFAFF,  844ABAA,  S;HEAF5,  ?<HBF  AA ,  ?<HAAF A ,  8<HF5AA ,  &H55D5,  8<HF55F 

1019  DATA  &H5555 ,  ?<HD555 ,  &H5755 .  S<H55F5 ,  !<H5555 ,  &H5555 ,  S<H5555 ,  S.H5555 

1020  DATA  S4H55 

1021  60SUB  1072 

1022  CLS: SCREEN  1 : DEF  SEG=0:P0KE  1 050, PEEK ( 1052) : COLOR  3,1 

1023  C40SUB  1050 

1024  GOSUB  1045 

1025  GOSUB  1086 

1 026  CLS 

1027  LINE  (10, 10) -<310, 180) , 1. BF 

1028  L.OCATE  23,  1:  PRINT  " 

1029  LOCATE  23,2:PRINT  "SCORE: "! SC:L0C ATE  23,30:PRINT  "FLY:";LI 

1030  GOSUB  1054 

1031  A*=INKEY*:  IF  AS="8"  AND  XUO  THEN  X  =  X-5 

1032  IF  A*="2"  AND  XC155  THEN  X=X+5 

1033  IF  A*="  "  THEN  GOSUB  1039 

1034  IF  W< 1 3  OR  W>279  THEN  PUT  <W, E> , RO, XOR:  GOSUB  1054  ELSE  W-W+RET 

1035  IF  W< 170  AND  W>145  AND  (E=X+3  OR  E=X+8)  THEN  GOTO  1057 

1 036  PUT  ( 1 60, X ) , PL , PSET 

1 037  PUT  ( W , E ) , RO , PSET 

1038  GOTO  1031 

1039  LINE  ( 1 60 , X  + 1 1 )  —  < O , X  + 1 1 ) 

1040  SOUND  800, .3 

1041  LINE  ( 1 60 ,X+11)-(0,X+11),0 

1042  IF  W <160  AND  E=X+3  OR  W<1 60  AND  E=X+8  THEN  SC-S.C+ 1 O i LOCATE  23, 2: PRINT"SCORE 


: "«SC:F=F+1 


1043  IF  F=25  THEN  F=0:G0T0  1069 

1044  RETURN' 

1045  PUT  (160,80)  ,  PLANE'/.:  LOCATE  8,17:PRINT  "UFO  JAGT - " 

1046  DIM  DF (300) : GET (O, O) — ( 10, 30) , DF 

1047  DIM  F'L  (200)  :  GET  ( 159,  75)  —  <  185,  94)  ,  PL 

1048  FOR  1=280  TO  170  STEP  -1:PUT  ( I , 80) , RO, PSET: NEXT  : FOR  1=100  TO  170:PUT  (160 
,  I  >  ,  TR00P7. ,  PSET :  FOR  C=1  TO  60:  NEXT  :  NEXT 

1049  RETURN 


1050  LINE  ( 1 40, 60) — ( 1 80, 1 20) , 1 , BF : Cl RCLE  ( 160, 100) , 4, 2 

1051  F'AINT  (160,  100)  ,2,2 
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5.  30:  PRINT  "FLY :  "  j  L I 


'1052  DIM  RO (70) : GET  ( 1 45, 95) - ( 174, 105) , RO 

1053  CL S: RETURN 

1054  Q=INT(RND*2) : IF  Q/2=INT<Q)  THEN  W= 1 : RET =10: W= I NT  (RND*100)+5  ELSE  W=280-INT 
(RND*00) : RET =—10 

1055  E=X+3: R=W: PUT  <W, E) , RO, PSET 

1056  RETURN 

1057  FOR  G=0  TO  10:F0R  T=0  TO  10: I=INT (RND*20) +155: D=INT <RND*20) +X : PUT ( I , D) , RO, X 
OR: NEXT  : NEXT 

1058  GET  ( 100, O) - <200, 199) , EKS 

1059  D=INT  (RND*10) : IF  D<5  THEN  GOTO  1063 

1060  PUT  (100,0)  ,  EKS:  FOR  N=X+15  TO  170:PUT  <  160,  N)  ,  TR00P7.,  PSET:  FOR  L=0  TO  20:NEX 
T  : NEXT 

1061  FOR  1=0  TO  1000: NEXT 

1062  F=0:LI=LI-1: IF  LI=0  THEN  GOTO  1068ELSE  GOTO  1026 

1063  CIRCLE  (160,200) , 15,2: PAINT  ( 160, 198) , 2, 2: LOCATE  23, 2: PRINT  "HOSTAK  ":C 

HR* (26) 

1064  FOR  N=X  TO  X+20:PUT  ( 153,  N)  ,  LAND*/.,  PSET:  PUT  ( 100, 0)  .  EKS:  FOR  L=0  TO  20:  NEXT  : 
NEXT 

1065  FOR  N=X+20  TO  170:  PUT  ( 153,  N)  ,  LAND-/.,  PSET:  FOR  L=0  TO  20:  NEXT  :  NEXT 

1066  FOR  1=0  TO  1000: NEXT 

1067  F=0 : L I =L I - 1 : I F  LI=0  THEN  GOTO  1068ELSE  GOTO  1026 

1068  LOCATE  12, 20: PRINT  "GAME  OVER...": END 

1069  FOR  0=0  TO  10:F0R  TY=0  TO  10:S=INT  (RND*20> +W: D= INT (RND*20> +E: PUT  (S.D),RO: 
NEXT  : NEXT 

1070  SC=SC+ 100: LOCATE  23,2:PRINT  "SCORE: "; SC: LOCATE 

1071  GOTO  1026 

1072  READ  X , Y : N=FNSZ ( X , Y > 

1073  DIM  TR00P7.  (300) 

1 074  TR00P7.  ( O )  =  X :  TR00P7.  ( 1 )  =Y 

1075  FOR  1=2  TO  N:  READ  TR00P7.  ( I )  :  NEXT  I 

1076  DATA  8/H2A ,  8/H  17,  8/HO ,  8/HO ,  8/HO ,  S/HO ,  8/HBOA  A ,  S/HO 

1077  DATA  8/HAOO,  8/HA8AA,  8/HO, S/HAAOO ,  S/HA  AAA ,  S/H80,  8/HAA02,  8/HAAAA 

1078  DATA  8/HA0,  8/HAAOA,  8/HAAAA,  8/HA8,  8/HAAOA,  8/HAAAA,  8/HA8,  8/HAAOA 

1079  DATA  8/HAAAA,  8<HA8,  8<H8A02,  8/HA888,  8<HA0,  S/H8200,  8.H2000,  8.H80 

1080  DATA  8-HC300,  8.H3000,  8-HCO,  8<H3BOO,  8<H3B3F,  8<H0,  8<HF00,  8-H3C3F 

1081  DATA  8-H0, 8<HB00,  8.H380C,  8<H0,  &HA00,  8<H8AA.  8<H0,  8<H0 

1082  DATA  8<H2A,  8<H0, 8<H0,  8<H2A,  8<H0, 8<H0,  8<H2A,  8<H0 

1083  DATA  8<H0,  8/H22,  8<H0,  8<H0,  8<H22,  8<H0,  8<H0,  8<H22 

1084  DATA  8/HO,  8<H0, 8<H22,  8<H0,  8<H0,  8<H0,  8<H0,  8<H0 

1085  RETURN 

1086  READ  X, Y:N=FNSZ (X, Y> 

1087  DIM  LAND7.  (300) 

1088  LAND7.  <0>  =X:  LAND7.  ( 1 )  =Y 

1089  FOR  1=2  TO  N:  READ  LAND7.  ( I )  :  NEXT  I 

1090  DATA  8/H22,  8<H17,  8<H0,  8<H0,  8<H0,  8<H0,  8<H0,  8<H0 

1091  DATA  &H0,  8.H0,  8<H0,  8<HO,  8<H0,  8<H0,  8<H0,  8<H0 

1 092  DAT  A  8/HO ,  8<H0 ,  8/HO ,  8/HO ,  8/HO ,  8<H0 ,  8/HO ,  8/HO 

1 093  DATA  8/HO ,  8/HO ,  8/HO ,  8/HO ,  8/HO ,  S/HO ,  8/HO ,  8/HO 

1 094  DATA  8-HO ,  S/HO ,  S/HO ,  8/HCOOF ,  8/HO ,  8/H8FOO ,  S/HC8 ,  8/HO 

1095  DATA  S/H883,  8/HO,  8/HAAOO,  8/HA8,  8/HO,  8/H800A,  8/HO,  8/HAOO 

1 096  DAT  A  8/H80 ,  8/HO ,  8/HBOOA ,  8/HO ,  S/H800 ,  S/H80 ,  8/HO ,  8/H8008 

1097  DATA  8/HO ,  8/H8OO ,  8/H80 , 8/HO 

1098  RFTURN 
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Super  3-D  lab 


1 0  PQKE630 / 235  P0KE3328 1,7  PØKE53280 , 5 

20  G0SUB9300  ■  EXi  er  tai 

løø  DIM  AS<22),Sf<12X.  ,  , 

120  Ff ="*"  BX=38 :  BY*23  DIMB(BX,  Ft’)  Std  laby  TIT 

14ø  FQRI*ØT022  Af  < I  )*F$  Ff»Ff+"IT  NEXT  v 

i6ø  h#*"3  nr  fg*i2  fm=ø  svea  pa  i 

180  FQRI-1TQ8  T$=T$+Hf  :  NEXT  jpry  nrl  pllp 

200  F0RI*ØT03  :  Sf  <  I  )f.Tf  “  Tf *T$+H$+Hf  NEXT  ^  ^ 

210  fori*ito8 : s*< i >*sf  < i)+"mM : next  du,  men  k 

220  FORX-ØTOBX : B<X, 0)«1 : B<X,  BV)*1  NEXT  .  u. 

240  F0RV-2T0BY- 1 STEP2  Clig  IOmUItl' 

26ø  F0RX*2TQBX- 1 STEP2  Hinnl  toret 

28ø  B<X, Y)*l  uu  Vil  lk9Ibl 

SIS?  en  grundig 

34ø  FORY-ØTOBY :  B<0, V)«l :  B<BX,  V)*l : NEXT  etter  C1U  ei  C 

36ø  F0RV1T0BV-1  M  H  f  ± 

380  forx*itobx-i  ivien  aei  gc 

400  IFRNDCØ».8ø  THEN  B<X,V)*1 

44ø  NEXT  - 

46ø  NEXT  MHk 

470  UX«INT<RND<ø)*<BX-l))+l  X«INT<RND<0)*<BX-1)>>1  O 

471  I FUX/2« I NT  <  UX/2 ) ORX/2« 1 NT  <  X/2  ) THEN470 

473  B<UX,  0)  — 1  :  V«BV-1 :  B<X, Y)*INT<RND<0)*4)+2  B<UX,1)*0:B<X,Y-1)*0  Q 

580  Zf*"P"  TX«ø  TV*0  GOTO  1128 

liøø  GETZf  :  TX*0 :  TV*ø  & 

H20  IF  Zf*""  THEN  liøø  " 

1123'  IFZfO"  "flNDZfO"H"ANDZfO"VMflNDZfOML"ANDZfO"P"TH6Nl løø  . 

1127  IF  Zf*"L"THENG0SUB9000  G0T01 100  ® 

1128  IFZf-"P"THENPRINT":T  00T02000  _ 

1130  IFZf«"  "ANDB<X, V)«2THENTX=ø : TV— 1 : G0T01220 

1160  IFZf*"  "ANDBCX, V)*3THENTX«1 : TY*0  G0T01220 
1180  IFZf-"  "ANDB*X,V)*4THENTY=1  TX«0  G0T01220 
1200  IFZf*"  "ANDB<X,V)*3THENTX— 1 : TV-0 
1220  IFBCX+TX, Y+TV)-1THEN1 100 
1230  PRINT "D" 

1240  IFZf*"  " THENB C X+TX , V+T V ) «B  <  X , V )  B  <  X , Y ) *0 : X-X+TX : V-V+T  V : G0T02000 

1230  REM 

1260  IFZf-"H"ANDB<X,V)03THENB<X,V)-B<X,Y)«-l  G0T02000 
1 280  I FZf ■ " H " RNDB  < X , V > -3THENB <  X , V  >  *2 ■ G0T02000 
1290  REM 

1300  IFZf-"V"ANDB<X,Y)02THENB<X,Y)*B<X,Y)-l  G0T02000 
1320  B<X,V)«3 

2000  IFB<X, Y)-2THENG0SUB7200  G0T02100 
2020  IFB<X, Y)*3THENQ0SUB7300 = G0T02100 
2040  IFB<X, V)-4THENG0SUB7400 : G0T02100 
2060  G0SUB7300 

2080  REM  **»«****«*M*»****** 

2100  I FB <  X+X 1 / Y+Y 1 ) >ØTH£NQF*0  00T02 1 30 
2120  QF*1 

2130  N 1 *0 : N2=0  N3* 1 : N4* 1  H 1 *3 : H2*4  H3=5  H4*6  S 1 =8  32*8 : S3*7  34*7  G0SUB800Q 
2220  IFB<X+X2, Y+V2 > >ØTHENQF *ø  G0T02230 
2240  QF=1 

2230  N 1 *ø : N2*0 : N3= 1  N4* 1  H 1 *36 : H2=33 : H3-34  H4=33  S 1 *8  32*8  S3*7  34*7  G0SUB9300 
2320  I  FB <  X+FX  ,  V+FY )  *  1 THEN3000 
2330  I  FB  <  X+FX ,  V+FY  ) *- 1 THEN8500 
2340  REM  *iMf*##iM(#*)M(#*4**#** 

2360  I  FB  <  X+X3  ,  V-*- V3  >  >ØTHENCF =ø  GOT02390 
2388  QF=1 

2390  NI *2  N2*2 : N3*3 = N4*3 : Hl»7  H2*8  H3*9 : H4*lø: 3.1-6 : S2*6 : S3-5 : 34*3  G0SUB8000 
2460  IFBCX+X4, V+V4)>ØTHENQF*ø  GQT02490 
2480  QF*1 

249ø  NI *2 ; N2*2 : N3-3  N4-3  *H1«32  H2-31  H3-30 : H4*29  Sl*6 : 32*6  S3*3; 34*5  G0SUB?3øø 
2360  IFB<X+FX*2, Y+FV*2)*1THEN6000 
2370  I  FB  < X+FX#2 , Y*FV*2 )  —  1 THEN8400 
2380  REM  ******************** 

2680  REM  **^*W************ 

2700  IFB<X«-X3,  V+Y3»ØTHENQF*ø  G0T02730 
2720  QF*1 

2730  N 1 *4  N2*4  N3-3 : N4*3  H 1 * 1 1  H2* 1 2  H3- 1 3  H4* 1 4  S 1 *4  32=4  S3*3  34*3  G0SUB3000 
2800  IFBCX+X6, V+V6)>ØTHENQF=ø : G0T02830 
2820  QF-1 

2830  NI *4  N2*4  N3-3  N4-3  =  Hl *28  H2-27 : H3-26 : H4*23  S 1*4  32*4  =  S3*3  34*3 • G0SUB9300 

2883  I FB < X+FX*3 . V+F Y*3 ) * 1 THEN7øøø 

2887  I FB  <  X+FX*3 , V+F V*3  >  —  1 THEN3300 

2890  REM  ******************  HUSK 

2900  I FB<X+X7 / V+V7 ) >ØTHENQF*0  G0T02930 

2920  QF*1 

2930  N1-6N2-6  N3*7  N4*7H1=13  H2*16  H3-17  H4*18S1*2  32*2  S3*l  S4*l  GØSUBSØØØ 
3000  IFBCX+X8; V+V8)>øTHENGF=ø : G0T03030 
3020  QF*1 

3030  Nl*6 : N2-6  N3*7 : N4*7 : Hl*24 : H2-23 : H3-22  H4-2 1 : S 1 *2  32*2  S3* 1  34* 1  G0SUB9300 
3100  IFB<X+FX*4, V+FVf 4 )*- 1 THEN3200 

3883  IFB<X*FX#4,V4-FY#4>«lTHENPøKE646,FM  . .  ■  ■  — 

3890  IFB<X+FX*4,V+FY*4)*øTHENP0KE646,F0  — — ■ 

4000  PRINTflf (8) ;TRB<19)/Sf<0) 

4020  PRINTflf <8)  /  TRB<20) ;  Sf (0)  COMMO  M 

4040  GOTO  1100  DOR€  ^ 

Søøø  POKE646/  FM  ^ 

3020  F0RI-7T032  w  b 

3040  PRINTRf  <2) ;  TRB<  I >; S$<6>  [_ 

5060  NEXT  ■  J 

5080  GOTO  1100 
6000  P0KE646.RM 
6020  FORI-1 1T028 
6040  PRINTflf<4)/TRBa);Sf<4) 

6060  NEXT 
6080  GOTO 1100 
7øøø  PQKE646/ FM 
7ø2ø  F0RI-13T024 
7040  PRINTR$C6)/TRB<n;Sf<2) 

7060  NEXT 
7080  GOTO 11 00 

7200  XI  —  1  V1*Ø  X2*1  V2-Ø  FX-0  FY—  1  X3—1  V3*-l  X4-1  V4*-l 
7210  X3— 1 :  Y3*-2  =  X6- 1  V6— 2  :  X7—  1  •'  V7— 3  X8*  1  V8— 3 :  RETURN 


■  Du  er  tanget  i  en  kæmpe¬ 
stor  labyrint.  Du  har  allerede 
sved  på  panden.  Kommer 
jeg  ud  eller  hvad???  Det  gør 
du,  men  kun  hvis  du  bærer 
dig  tornuttigt  ad. 

Du  vil  tørst  i  dette  program  tå 
en  grundig  instruktion,  hvor¬ 
efter  du  er  overladt  til  dig  selv. 
Men  det  går  altsammen,  hvis 


du  bare  ikke  kikker  tor  man¬ 
ge  gange  på  det  oversigts¬ 
kort,  du  skal  anvende  tor  at 
tinde  udgangen. 

Du  kører  trem  med  spacebar, 
til  venstre  med  V  og  til  højre 
med  H.  Ved  drejning  står  du 
på  samme  sted.  Du  kan  se 
landkort  ved  et  tryk  på  L.D 
Nils  Lausten 


7300  X 1 *0 • Y 1 — 1 : X2-0 : Y2-1 : FX« 1 : FV-0 : X3* 1  V3— 1 : X4* 1  V4= 1 
73 1 0  X5-2 :  V3—  1 :  X6-2  =  Y6«  1 :  X7-3 :  V7—  1  =  X3*3  =  V8«  1 :  RETURN 
7400  Xl*l  Vl*ø  X2—  l  :V2*Ø  FX*Ø  FY*1  X3-1 :  V3«l  =X4— l :  Y4*l 
7410  X5-1  ;  V3-2 :  X6—  1  '  V6*2 :  X7*  1  =  Y7*3 :  X8—  1 :  V8*3 :  RETURN 
7300  X 1  *ø :  V 1 « 1  X2-0  V2—  i  :  FX—  1 :  FV*0 :  X3—  1  =  Y3- 1  :  X4*- 1  Y4=- 1 
7310  X3— 2  Y3-1  X6— 2  Y6—  1  X7—3  Y7«l  :  X8— 3  V3— 1  RETURN 


3øøø  REM 

3ølø  IFQF*1THENF<0)*11  F<1>*12  F<2)*13  F<3)*1  GQT03030 
3020  F<ø)*ø  F< 1>=2  F<2>*0  F<3)=2 

3ø3ø  P0KE646,F<ø) 

8040  PRINTRf <N1 > ; TRBCH1 > ; Sf <31 > 

8050  P0KE646/F<1> 

3ø6ø  PRJNTftf<N2> ; TRB<H2) ; Sf <S2> 

8063  PRINTTRE<H2> ^ "F" 

3065  PRINTflf  <N2>  TRB<H2) ;  "  SH" 

3ø7ø  P0KE646/ F<2> 

3030  PR I NT Af <N3) ; TAB < H3 > ; Sf  < S3 > 

3033  P0KE646,F<3) 

3090  PR I NTflf ( N4  > ; T AB  <  H4  > ; Sf  <  34  >  • 

3093  PRINTTflB<H4) ; "F" 

8095  PRINTflf <N4> ; TflB<H4) ; " 3n" 

3100  RETURN 

3200  P0KE646 , FG  PR I NTflf  <  8 ) ; TflB  < 1 9  > ; " — " 

3220  PRINTflf-:  15) ;  TAB<  19> ;  " — " 

3240  GOTO  liøø 

3300  PRINTflf  <6>, TABC13) ;  " - " 

3320  PRINTflf <  17), TflB<  13);" - " 

3340  GOTO 11 00 

3400  PRINTflf  <4) ,  TflBC  1 1 ) ;  " - " 

342ø  PRINTflf ^19>;TflB<ll>;M - " 

3440  GOTO 11 øø 

3300  PRINTflf  < 2);  TAB < 7);  " - M 

3320  PRINTflf  <21 ); TflB<7),  " - " 

3340  PRINTflf <lø),TflB< 13); "DU  KLAREDE  DET  ! ! ! " 

3545  PRINTflf < 1 ) , TAB 017) , "UDGANG" 

3330  P0KE646, INT<RND<0)f 16) : G0T08300 

3360  END 

9øøø  PRINT"*!1 

9010  FORQV-ØTOBV 

9020  F0RQX-ØT0BX 

9ø4ø  IFB<QX, QV)*1THENPRINT" SS  M;  G0T09120 

9060  IFB<QX,QV)*ØTHENPRINT"B  "; -G0T09120 

9030  IFB«2X,QV)— 1THENPRINT"!  ";  G0T09120 

9100  IFB<QX,QV»1THENPRINT"K31",  -G0T09120 

9120  NEXT 

9140  PRINT 

9160  NEXT 

9130  RETURN 

9300  REM 

9310  IFQF*1THENF<0)*1 1  F(1)=12:F<2)*13F<3)*1  G0T09330 

9320  F<0)*0  F<1)*2  F<2)*ø  F<3>*2 
9330  P0KE646,F<ø) 

9340  PRINTflf <Nl),TAB<Hl);Sf<Sl) 

9330  P0KE646,F<1) 

3360  PRINTflf <N2),TflB<H2),Sf<S2) 

9363  PRINTTflB<H2>,"^" 

9363  PRINTflf <N2) , TflB<H2); " SF" 

9370  P0KE646,F<2) 

9330  PRINTflf <N3),TflB<H3);Sf<S3) 

9383  P0KE646,F<3)  * 

9390  PR I NT Af <  N4 ) , TAB  <  H4 ) ; Sf  <  S4 ) 

9393  PRINTTABCH4) ; 

9393  PRINTflf <N4) , TflB<H4); " 3T" 

94øø  RETURN 

3500  PR I NT DETTE  PROGRAM  ER  LAVET  AF  : " 

3310  PR I NT "3  -NIELS  LAUSTEN*" 

9320  PRINT"  31 . H. MUNDTSVE J  139" 

9330  PRINT"  32830  VIRUMS" 

9330  PRINT"1DU  SKAL  FINDE  UDGANGEN  I  LABYRINTEN." 

9360  PR I NT -DET  ER  KUN  MULIGT  AT  SE  3  SKRIDT  FREM" 

9370  PR I NT "FOR  SIG  I  DEN  GANG  MAN  NETOP  BEFINDER" 

9330  PRINT-SIG  I.M" 

9390  PRINT "SflflDAN  BEVflEGER  DU  DIG  JT 
96øø  PR  I  NT  "STTRVK "  SPACE ' ,  SAR1  GflflR  DU  FREMAD" 

9605  PR I NT "HVIS  DER  IKKE  ER  EN  MUR." 

9610  PRINT"nTAST'H',Sflfl  DREJER  D'J  DIG  TIL  H0EJR6/" 

9620  PR  I  NT  "MEN  SIBLIVER  STÅENDE  Pflto*  SAMME  STED." 

9630  PRINT";jTAST'V',SAA  DRPJER  BU  HIG  TIL  VENSTRE," 

964ø  PR I NT "MEN  SBLIVER  STAAENDE  PAA ‘SAMME  STED." 

9650  PRINT-iHVIS  DU  TASTER  'L' , BLIVER  LABYRINTEN" 

9660  PRINT"SKREVET  UD  PAA  SKflERMEN. " 

9670  PR  I  NT  "  IN  V I S  DU  TASTER  P,  BLIVER  DU  STAAENDE '• 

9630  PR I NT "HVOR  DU  STAAR. BRUGES  HVIS  DU  HAR" 

9690  PRINT"  SNYDT  VB&  AT  S?  LABYRINTEN. < 'L')M 
97øø  PRINT" SFfDER  HVOR  MLIREN  ER  LYS, ER  DER  GENNEMGANG" 
9999  RETURN 
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Fort  Apache 


■  Fort  Apache  er  en  compu-  /'/'  / 

ter  version  at  en  al  de  kendte  fyy/  ' - 

små  lommespil,  hvor  du  har  - - 

kontrol  over  broen  til  din  f 

borg.  Den  skal  slås  op  og  i 

ned .  Op,  når  det  er  fjender  el- 
ler  venner,  der  ankommer.  t*  (£> 

Spillet  er  selvforklarende  og  , 

delt  op  i  to.  Indtast  del  et  og 

læg  den  på  bånd.  Indtast  ^ - 

dernæst  del  to.  h  J 

Efter  indlæsning  af  del  et  fra  9-7  — 

bånd  skal  du  vente  ca.  3  mi-  (  //G 3  _ ^ 

nutter  på,  at  skærmen  slettes 

og  andre  væsentlige  ting  ^l^f} 

klargøres. □  /  /ff 

Michael  Lauridsen  'Il  ^ 


1  FOR J *0102047 

2  P0KE36333 , 127 1 POKE 1 ,3 1 

3  X*PEEK<  53248+J) 

4  POKE 1 ,331 P0KE56333, 129 
3  POKE 14336 *J  ,X 
6  NEXT 

10  F0RA«0T0119lREA0SlP0KE<  14336*A>8$33 > ,S*KEXT 
100  D«TA3,4, 12,24,36, 124,233,233 
110  DATA30 ,24 ,24 , 16,62 ,88,20 , 18 
120  DATA30 ,24 ,24 ,16,124,26,40,72 
130  DATA  0,24,24,16,62,88,20,18 
140  DATA  0,24,24,16,124,26,40,72 
130  0ATA30, 12, 12,8, 13, 12,3,0 
160  DATA30, 12, 12,9, 14, 12,2,1 
170  DATA  0,12,12,8,13,12,3,0 
180  DATA  0,12,12,9,14,12,2,1 
190  DATA234 ,248,232,200 ,233 ,136,136,8 
200  DATA  127, 31 ,23,19,233,17,17,16 
210  DATA8 ,8 ,8 ,8 ,233,8,8,8 

220  DATA  16, 16,16, 16,233, 16,16,16 

221  DATAO, 0,0, 0,0, 0,0,0 

222  DATA192, 48, 204, 48, 192,0,0,0 

300  PRINT  "SPILLET  GAAR  UO  PAA  AT  BESKYTTE  EN  BORG- 
310  PRINT-FOR  FJEMJEROCD  HJELM).  NAAR  DER  KOH-CR" 

320  PRINT'EN  FJENDE  SAA  MAA  DU  IKKE  AABhC  PORTEN* 

330  PRINT-ICN  NAAR  DER  KOWCR  EN  UDEN  HJELM  SAA' 

340  PRINT"SKAL  DU  AABNE  PORTEN. 

330  PRINT "HVIS  EN  SOLDAT  KRAVLER  OP  AD  REBET  SAA" 

360  PRINT  "SKAL  DU  DRAEBE  HAM  f-ED  ET  SPYD(FIRE)" 

370  PRINT"MEN  KUN  HVIS  HAN  HAR  HJEM  PAA" 

380  PR  I  NT  i  PR  I  NT  i  PR  I NT "CONTROL  I  PORT  1" 

390  PRINT  i  PRINT-  AABEN  P0RT< - »LUKKE  PORT" 

393  F0RQ*0T010*GETA«ihCXT 
400  GETA<» IFA$*" "THEN400 
410  PRINT "NAAR  CURSER  SES  TASTES  <L0AD>" 

READY. 


-Qi 


r-i 


yd. 


230  F0RH-33000T033255 : B*INT (RND( 1 >*23) 

251  IFB-ØTHENP0KEfl,38 

252  I  FB»  1 THENPOKER  ,  40 

253  IFB>  1 THENPOKER , 32 
233  NEXT 

300  INPUT" KS VRERHEDSGRRD  l~løø" i P :  IFPMØØTHENSØØ 
400  F0RR-49132T049230 :  REFIDS =  POKER,  S :  NEXT 
410  DRTR162, 30, 189,32,7, 137,33,7,202,224,  0,208,243 

413  DRTR173, 211, 3, 141,212,3 

416  DRTR173, 231, 3, 141,211,5 

417  DRTR173,  35,6,141,231,3 

418  DRTR173,  75,6,141,  35,6 

419  DRTR173, 113,6, 141,  73,6 

420  DRTR173,'153,6, 141, 115,6 

421  DRTR173, 193,6, 141, 135,6 

422  DRTR173,233,6, 141, 193,6 

423  DRTR173,  19,7,141,235,6 

424  DRTR173, 143,7, 141, 183,7 
423  DRTR169, 32, 141, 143,7,96 

998  P0KE34296, 15  P0KE34277, 190 : P0KE54278, 248 : P0KE54276- 33 

999  PR  I  NT  "  B". :  PO-ø :  PR  I  NT "  «S 

1 000  F0RR- 1 T0233 : POKE 1 827 , PEEK  <  30000+R  > : POKE 1 8 1 1 , PEEK  < 35000+fl  > : SVS49 1 32 

1009  POKE 1493, 32 

1010  IFPEEK (36321) C240THENP0KE 1493,31 

1011  IFPEEK (36321) »251 THENPOKE 1895,99 

1012  I FPEEK (5632 1 >*247THENP0KE 1895, 32  _ _ 

1020  IFPEEK(1492)»38THEN10000  w  — |Bl 


ø  P0KE53272, 31 = LI=ø : P0=ø : P0KE53280, 0 : P0KE53281 , 0 
10  PR  I  NT 11  SIM  SCORE" 

20  PR  I  NT "  (WMKWWrøWrørø" 

30  PRINTTBB(28) ;  " SS . " 

4ø  PRINTTflB(28);"ia  9M-3 
30  PRINTTRB(28) i  ""1  3  1,-8 

6ø  F0Rfi-ØT04PRINTTfiB(28>;""l  3  " : NEXT 

70  PRINTTHB(28);  ""1  3 

80  F0RRP21T024 : F0RB-32T039 : P0KElø24+fl#4ø+B, 160 : NEXT : NEXT 
90  PR I NT" HS  C0MM0D0RE  64  FORT  RPRCHE  " 

100  PRINT" 3 

110  F0RR-1984T02015: POKER-  33 : P0KER+55296-1024, 6 : NEXT 

120  P0KE20 12, 160  POKE 1972, 160 

200  F0RR-30000T030255 : B« I NT ( RND ( 1 ) * 1 5 ) 

210  IFB»ØTHENP0KEfl,35 
220  IFB-1THENP0KER-37 
230  I FB> 1 THENPOKER , 32 
240  NEXT 


1021  IFPEEK(1492)»40THEN10100 

1022  IFPEEK(1833)»33THENlø2øø  CC 

1023  IFPEEK ( 1 833 ) »37THEN 1 0300  C 

1030  FORT-ØTOP : NEXT 

1060  FORW" 1 TO 1 ø : P0KE34273 , W : NEXT 

liøø  NEXT  GOTO  1000  1 

løøøø  I FPEEK ( 1 493 ) »3 1 THEN20000  K 

løølø  IFPEEI{(  1493)  =32THEN2 1 000 

løløø  I FPEEK ( 1 493 ) “3 1 THEN2 1 øøø  /Jggg 

10110  IFPEEK(1493)»32THEN20000 
10200  IFPEEK(1893)=99THEN21øøø 

10210  I FPEEK ( 1 893 ) “32THEN20000  -  .  . 

10300  IFPEEK(  1893)"99THEN20000 

10310  IFPEEK(1895)»32THEN21øøø 

20000  PO«PO+lø 

20100  PR I NT “  fHM  SCORE  ";P0 

20 1 50  I FPEEK ( 1 853 ) »35THENP0KE 1 853 , 32 : POKE 1 935 -  35 
20200  GOTO 11 00 
21øøø  LI=LI-+1 

21125  PR  I  NT "  SCCHrøMKCHB" ,  TRB(28+LI*3)  J  "IH  ES'" 

21130  PRINT" WfiirølOlrølrøRIS  " ;  TRB(28+LI*3) ;  "El  I 

21150  IFLI=3THEN30000 
21200  GOTO 11 øø 

3øølø  F0Rfl=øT015SVS49 152: NEXT 

30050  l_I=0:PO*0:PRINT"SH 

30060  PR  I  NT "  WfffflrørøKOrør  .  TRB(28)1 " 

3øø61  PRINT"WWMIMIIBMIIWM";TRB(28); " 

30090  F0Rfl=øT0255 : P0KE54273 , fl : NEXT 
30098  IFPEEKC56321 )<>239THEN30090 
3øø93  pp  i  nt  -  vuannmummummmm 

30100  INPUT" USVRERHEDSGRRD  1 “1 øø " , P : I FP> 1 ØØTHEN30 1 øø 

30101  GOTO  998 


COMMO 

DORE 
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0010  //  Cooyrioht  (c)  by  Lars  Christensen,  Hillerød. 

0020  PRINT  CHR*<12) ; TAB (26) :"E  LIZ«" 

0030  PRINT 
0040  PRINT 
0050  PRINT 

0060  //  Initialisering 
0070  ni: =36;  n2s=14;  n3 : = 1 1 2 

0080  DIM  s (ni), r(nl),n<nl), i*  OF  80,  k*  OF  20, cS  OF  80, f*  OF  80, rs*  OF  20 
0090  DIM  ss$  OF  20, ot  OF  80, keyword* <nl )  OF  20, reDly* (n3)  OF  80 
0100  PRINT  ”a  moment,  piease.  She’ s  coming  soon" 

0110  RESTORE  numerical 
0120  FOR  x : =1  TO  ni  DO 
0130  READ  s<x>, 1 

0140  r  <x)  :=s  <x)  ;  n(x)  :=s  (x)+l-l  — 

0150  NEXT  x  - 

0160  RESTORE  keywords 

0170  FOR  x  :  =  1  TO  ni  DO  READ  keyword*(x)  PICCOLO  t 

0180  RESTORE  reolyes  g 

0190  FOR  x :=1  TO  n3  DO  READ  reoly*(x)  fo 

0200  PRINT  "hi!  i*m  Eliza.  what’ s  your  problem  ?  "  ■  — 

0210  //  User  inout  section 
0220  REPEAT 
0230  INPUT  i* 


♦:»i*(ltpos-l)+i*<oo*+l :LEN(i*) ) 


i <  :  =  "  " 

IF  "shut "  IN  i*  THEN 

PRINT  "ok,  i  give  up,  goodbye. " 

END 
ENDIF 

WHILE  "’"  IN  i«  DO  oos:="’"  IN  i% ;  i* :»iS ( 1 tpos-l ) +  <oo*+l :LEN ( i*) ) 

IF  i*=o*  THEN  , 

PRINT  "piease  don’ t  reoeat  yourself!" 

o*  :  =  "%*%**%%%*%%%*%*%%*%*%%***%•' 

ELSE 

//  find  key word  in  i% 
si  :=0 

FOR  kl :=1  TO  ni  DO 

IF  keyword* (kl)  IN  i*  THEN  si:=kl;  kl:=nl 
NEXT  kl 
IF  si (=0  THEN 
si : =36 
ELSE 

RESTORE  Dronouns 

c*:  =  "  "♦»*  ( (keyword*  (si )  IN  it)  +LEN( keyword*  (si) )  :LEN(i$)  )+"  " 

FOR  x :=1  TO  n2/2  DO 
READ  ss$, rsS 

WHILE  55<  IN  c%  DO  oos:=ss*  IN  c*;  c* :=c* ( 1 : pos-1 ) +rs$+c$ ( dos+LEN (s 


s*) : LEN ( c% ) ) 


0480  WHILE  rs<  IN  c%  DO  pc>s:  =  rs$  IN  c*;  c%  :  =c*  ( 1  :  oos-1 )  +5s$+cl  <  dos+LEN  (  r 

s*) :LEN(c*) ) 

0490  NEXT  x 

0500  IF  c*<2:2)  =  "  "  THEN  c% : =c* ( 2 : LEN  <  c$ ) ) 

0510  WHILE  "!"  IN  c*  DO  pos:  =  " !"  IN  c* ;  c$ : =c* ( 1  * pos-1 ) +c$ ( pos+1 : LEN (c*) ) 

0520  ENDIF 

0530  IF  reol y* ( r  <sl ) )  (LEN ( reply$ (r(sl)>) *)  O  "*"  THEN 

0540  PRINT  reply* ( r (si ) ) 

0550  ELSE 

0560  PRINT  reply*(r<sl) ) (1 :LEN ( reply* ( r <sl ) ) )-l) :c* 

0570  ENDIF 

0580  p^:=i<:  r(sl):=r(sl)+l 

0590  IF  r(sl)>n(sl)  THEN  r(sl):=s(sl) 

0600  ENDIF 

0610  UNTIL  FALSE  y 

0620  keywords:  u 


0630  DATA  "can  you", "can  i" 


", "youre", "i  dont", "i  feel" 


0640  DATA  "why  dont  you", "why  cant  i", "are  you", "i  cant","i  am", "im  " 
0650  DATA  "you  ","i  want ", "what ", "how", "who", "where", "when”, "why" 

0660  DATA  "name", "cause", "sorry", "oream", "hello", "hi  ", "maybe" 

0670  DATA  "  no", "your", "always", "t hink", "al ike", "yes", "f riend" 

0680  DATA  "computer", "nokeyfound" 

0690  pronouns: 

0700  DATA  "  are  ", "  am  ", "were  ", "was  ",  "  you  ",  "  i  ", "your  ", "my  " 
0710  DATA  "  ive  "  youve  "  im  "  youre  " 

0720  //  data  ”  me  "  you  " 

0730  reolyes: 

0740  DATA  "don’t  you  bel ive  that  i  can*" 

0750  DATA  "oerhaos  you  would  like  to  be  able  to*" 

0760  DATA  "you  want  me  to  be  able  to*" 

0770  DATA  "oerhaps  you  don’t  want  to*" 

0780  DATA  "do  you  want  to  be  able  to*” 

0790  DATA  "what  makes  you  think  i  am*" 

0800  DATA  "does  it  piease  you  to  bel ive  i  am*” 

0810  DATA  "oerhaos  you  would  like  to  be*" 

0820  DATA  "do  you  sometimes  wish  you  were*” 

0830  DATA  "don’t  you  really*" 

0840  DATA  "why  don*  t  you*" 

0850  DATA  "do  you  wish  to  be  able  to*" 

0860  DATA  "does  that  trouble  you?" 

0870  DATA  "tell  me  more  about  such  feelinas. " 

0880  DATA  "oo  you  often  feel*" 

0890  DATA  "do  you  enjoy  feeling*" 

0900  DATA  "do  you  really  bel ive  i  don’t*" 

0910  DATA  "oerhaps  in  good  time  x  will*" 

0920  DATA  "do  you  want  me  to*" 

0930  DATA  "do  you  think  you  should  be  able  to*" 

0940  DATA  "why  can’ t  you*" 

0950  DATA  "why  are  you  i nte rest ed  in  whether  or  not,  i  am*" 


Eliza 


■  Er  du  træt  al  altid  at  se  din 
computer  meddele  'SYNTAX 
tejl'  og  'Variabel  ikke  erklæ¬ 
ret'?  Sd  tast  dette  program  ind 
og  RUN  det.  Du  vil  sd  blive 
præsenteret  tor  psykoanalyti¬ 
keren  Eliza. 

Med  hende  kan  du  tøre  en 
samtale,  godt  nok  pd  en¬ 
gelsk,  men  alligevel  noget 
mere  intelligent  end  sæd¬ 
vanligt. 

Eliza  vil  analysere  det,  du 
skriver,  og  torsøge  at  reagere 
sd  lornultigt  som  muligt  pd 
det,  Selve  teorien  og  ideen 
bag  det  hele  stammer  tra 
amerikaneren  og  psykoana¬ 
lytikeren  Carl  Rogers. 
Præsenter  dette  program  tor 
alle.  der  plejer  at  bande  over 
deres  computer,  og  tor  alle 
der  ikke  har  prøvet  en  com¬ 
puter  tør.  Det  vil  helt  sikkert 
gøre  lykkelD 

Lars  Christensen 


HCT 

HansCiu  TtvaY»*n 
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0960 

DATA 

"would  you  orefere  if  i  were  not*” 

0970 

DATA 

"oenaps  in  your  fantasies  i  a«Yi*” 

0900 

DATA 

"how  do  you  know  you  can’t*" 

0990 

DATA 

"have  you  trieb?” 

i  000 

DATA 

"oerhaDS  you  can  now*" 

1010 

DATA 

"dia  you  come  to  me  because  you  are*" 

1020 

DATA 

"how  lono  have  you  been*" 

1030 

DATA 

"do  you  belive  it  is  normal  to  be*" 

1040 

DATA 

"do  you  enjoy  beeing*” 

1050 

DATA 

"we  were  discussina  you —  not  me.  " 

1060 

DATA 

"Oh,  i*" 

1070 

DATA 

"you* re  not  really  talking  about  me,  are  you?" 

1080 

DATA 

"what  would  it  mean  to  you  if  you  got*" 

1090 

DATA 

"why  do  you  want*" 

1100 

DATA 

"suppose  you  soen  got*" 

1110 

DATA 

"what  if  you  never  got*" 

1120 

DATA 

"i  Børnetimes  also  want*” 

1130 

DATA 

"why  do  you  ask?" 

1140 

DATA 

"does  that  auestion  interest  you?" 

1150 

DATA 

"what  answer  would  o lease  you  the  most?" 

1160 

DATA 

"what  do  you  think?" 

1170 

DATA 

"are  such  ouestions  on  your  mind  often?" 

1180 

DATA 

"what  is  it  that  you  really  want  to  know?" 

1190 

DATA 

"have  you  asked  anyone  el  se?” 

1200 

DATA 

"have  you  asked  such  questions  before?" 

1210 

DATA 

"what  else  comes  to  mind  when  you  ask  that?" 

1220 

DATA 

"names  don’ t  interest  me. " 

1230 

DATA 

"i  don’ t  care  about  names —  olease  go  on." 

1240 

DATA 

"is  that  the  real  reason?" 

1250 

DATA 

"don’ t  any  other  reason  come  to  mind?" 

1260 

DATA 

"does  that  reason  exolain  anything  else?" 

1270 

DATA 

"what  other  reasons  might  there  be?" 

1280 

DATA 

"Diease  don’ t  aoologize!" 

1290 

DATA 

"apol og i es  are  not  necessary. " 

1300 

DATA 

"what  feelings  do  you  have  when  you  aoologize'!*" 

1310 

DATA 

"don’ t  be  so  defensive!" 

1320 

DATA 

"what  does  that  dream  suggest  to  you?" 

1330 

DATA 

"do  you  dream  often?" 

1340 

DATA 

"what  persons  aopear  in  your  dreams?" 

1350 

DATA 

"are  you  disturbed  by  your  dreams?" 

1360 

DATA 

"how  do  you  do  ...  Diease  state  your  problem." 

1370 

DATA 

"you  don’ t  seem  auite  certain. " 

1380 

DATA 

"why  the  uncertain  tone?" 

1390 

DATA 

"can’t  you  be  more  oositive?" 

1400 

DATA 

"you  aren’t  sure?" 

1410 

DATA 

"don’ t  you  know?" 

1420 

DATA 

"are  you  saying  no  just  to  be  negative?" 

1430 

DATA 

"you  are  being  a  bit  negative." 

1440 

DATA 

"why  not?” 

1450 

DATA 

"are  you  sure?" 

1460 

DATA 

"why  no?" 

1470 

DATA 

"why  are  you  concerned  about  my*" 

1480 

DATA 

"what  about  your  own*" 

1490 

DATA 

"can  you  think  of  a  specific  example?" 

1500 

DATA 

"when?" 

1510 

DATA 

"what  are  you  thinking  of?” 

1520 

DATA 

"really  always?" 

1530 

DATA 

"do  you  really  think  so?" 

1540 

DATA 

"but  you  are  not  sure  you*" 

1550 

DATA 

"do  you  doubt  you*" 

1560 

DATA 

"in  what  way?" 

1570 

DATA 

"what  resemblance  do  you  see?" 

1580 

DATA 

"what  does  the  similarity  suggest  to  you?" 

1590 

DATA 

"what  other  connections  do  you  see7" 

1600 

DATA 

"could  there  really  be  some  connection?" 

1610 

DATA 

"how?” 

1620 

DATA 

"you  seem  quite  oositive." 

1630 

DATA 

"are  you  sure?" 

1640 

DATA 

” i  see. " 

1650 

DATA 

"i  understand. " 

1660 

DATA 

"why  do  you  bring  ud  the  tooic  of  friends?" 

1670 

DATA 

"do  your  friends  worry  you?” 

1680 

DATA 

"do  your  friends  Dick  on  you?" 

1690 

DATA 

"are  you  sure  you  have  any  friends?" 

1700 

DATA 

"do  you  impose  on  your  friens?” 

1710 

DATA 

"perhaps  your  love  for  frinds  worries  you." 

1720 

DATA 

"do  computers  worry  you?” 

1730 

DATA 

"are  you  talking  about  me  in  particular?" 

1740 

DATA 

"are  you  frightened  by  machines?" 

1750 

DATA 

"why  do  you  ment  ion  comouters?" 

1760 

DATA 

"what  do  you  think  machines  have  oroblem?" 

1770 

DATA 

"don’ t  you  think  computers  can  hel  o  people?" 

1780 

DATA 

"what  is  it  about  machines  that  worries  you?" 

1790 

DATA 

"say,  do  you  have  any  osycholog ica 1  problems7" 

1800 

DATA 

"what  does  that  sugoest  to  you?" 

1810 

DATA 

" i  see. " 

1820 

DATA 

"i’m  not  sure  i  understand  you  ful  ly." 

1830 

DATA 

"come  come  elucidate  your  thoughts. " 

1840 

DATA 

"can  you  el  abo rate  on  that?" 

1850 

DATA 

"that  is  quite  interest ing. " 

1860 

numerical • 

1870 

DATA 

1,3,  4,  2,  6,  4,  6,  4,  10,  4,  14,3,  17,3,  20,2,22,3,25,3 

1880  DATA  28, 

4,  28,  4,  32,  3,  35,  5,  40,  9,  40,  9,  40,  9,  40,  9,  40,  9,  40,  9 

1890  DATA  49, 

2,51,4,55,4,59,4,63,  1,63,  1,64,5,  69,5,74,2,76,4 

1900  DATA  80, 
1910  END 

3,  83,  7,  90,  3,  93,  6,  99,  7,  106,  6 

Dræberne  i 
drivhuset 


■  Troede  du,  al  havearbejde 
var  noget  al  det  mest  fredfyld¬ 
te  og  idylliske,  man  kan  fore¬ 
tage  sig,  kan  du  roligt  tro  om 
igen. 

Vores  ellers  så  fredelige  gart¬ 
ner  kommer  nemlig  ud  for  de 
værste  oplevelser,  da  han 
bliver  hyret  til  at  luge  ud  i  et 
ældre  misligholdt  drivhus  hos 
en  lige  så  mystisk  eneboer. 


Du  møder  edderkopper,  der 
firer  sig  ned  fra  loftet,  og  som 
kun  kan  udryddes  med  gift. 
Edderkopperne  md  under  in¬ 
gen  omstændigheder  nd  ned 
til  planterne.  De  kan  nemlig 
ikke  tdle  den  gift,  som  insek¬ 
terne  sprøjter  omkring  sig. 
Programmet  er  selvforklaren¬ 
de. □ 

Christian  Bømler. 


4  BORDER  4  1  LET  h-100«  LET  z*-"ComPut#r#n"  _ _ _ 

3  INK  0  2  LET  5  f  "IB 

6  POPER  7  3  LET  t*-*AAAAAAA«A" 

7  BRIOHT  0  I 

8  OVER  0  TRUM  !j 

9  INVERSE  01  CLS  i  LET  1-3«  wET  o-0  PH 

10  01«  4(6)  1 

11  FOR  é-1  TO  6  _ _ 

12  LET  4( i ) ■ 1 

13  NEXT  1 

14  LET  «-0 
13  LET  4-13 

16  LET  c-19 

17  LET  d-b 

18  00  SUB  9999 

20  PRINT  AT  21.01  INK  6: "EEcEEEEESEEEEEEEEEEEEEEEEEEEEEEE- 

21  FOR  r»«-7  TO  7 

22  PRINT  AT  20.01  INK  ABS  n t “FFFFFFFFFFFF FFFFFFFFFF FFFFFFFFFF" 

23  BEEP  .  1.  'ABS  r,  i  .7:  NEXT  n 

26  PRINT  OT  20.01  INK  2« "FFFFFcFFFFFr FFFFFFFFFFFFFFFFFFFF" 

50  PRINT  OT  6.01  INK  6«“ _ * 

99  GO  SUB  9999 

100  RE«  OAOOOOAAQOOAOOQA  Am«.n  I 

•  tt . n«0  QAOOAAOOAAAOAAQA 

101  PRINT  AT  20. bi  INK  2«”F" 

102  LET  b-b*M  INXEY4--8”  OR  IN  31-1  OR  IN  31-17)  AND  b<>  30)-(  <  INKEY»-"3”  OR  IN 
31-2  OR  IN  31-18)  OND  b<>0) 

103  PRINT  OT  20. b I “A" 

106  PRINT  OT  c. dl"  " 

107  IF  »-0  THEN  LET  d-b 

108  1F  <d*6)/6«INT  ( ( d+6) /6)  AND  < c-1 > <*< < d*6 > /6 >  THEN  GO  TO  3500 

109  IF  *«1  THEN  LET  c-c-1 

110  IF  <(XN  31)15  AND  IN  31 <24)  OR  INKEY*-“0“)  AND  *-0  THEN  LET  #«1 

120  IF  c  O  19  TMEN  PRINT  OT  c.  dl  INK  3l"B"  ^ 

130  IF  c  <8  THEN  PRINT  AT  c. dl"  "i  LET  *-0s  LET  c-19  Z^xP/PS 

160  LET  k-INT  (  RND *6 >  ♦  1  V 

143  PRINT  OT  a(K>.  <(*-1)  *6)  l  INK  41  "C" 

146  LET  «(k  >-*<*>♦»  '  «j[  X|\\  J  A  I  v 

145  PRINT  AT  «(  x  ).<<*- 1 )  *6)  1  INK  2l“D"  'T'é  A.  /j 1  ÆÆ 

130  IF  «(m)>-20.  3  THEN  GO  TO  1000  (  ■■UH 

1000  REM  DDDDDDDDDDD  / AJ  L  ^ Dl/3  D 

ODD  DDDDDDDDDDD  ^  .  Æ  H 

1001  LET  l- 1-1  i  !  I!f/Æ€ 

1002  FOR  i-1  TO  30  1  IfW^ 

1003  PRINT  AT  2I.6-<»*6>«  INK  41  "E" 

1006  BEEP  .001.33  *^7 

1005  PRINT  AT  21 . 6-( x+6)  1  INK  21  "D"  O 

1006  BEEP  .001.30 

1007  NEXT  . 

1008  BEEP  1.-20«  BEEP  1.-20«  BEEP  .1.-201  BEEP  1.-20«  BEEP  .9.-17«  BEEP  .1.-18« 
BEEP  .7,-181  BEEP  .1,-20«  BEEP  .5.-20«  BEEP  .4,-21«  BEEP  2.-20 

1123  IF  l  O  O  THEN  GO  TO  1170 

1130  PRINT  AT  10. 10«"GAME  OVER"«  IF  p) -h  THEN  PRINT  “Skriv  dit  navn«"«  LET  h-e« 
PRINT  ••"Du  not  rakordan-i  GO  SUB  5000 

1140  IF  INKEYt  O  “0”  AND  IN  310  16  THEN  PRINT  AT  2,0«  FLASH  1 1 "TRYK  PR  *kvd'  fo 
r  rt  nyt  »Pil*:  PRINT  AT  20.0tz*t"  Har  Rpkordpn  -ed  "«h«  GO  TO  1140 

1150  LET  1-3 

1151  LET  p-0 

1152  BEEP  1.69 

1153  GO  TO  2 
1160  GO  SUB  9999 

1170  IF  lOO  THEN  PRINT  AT  10,3t"Tryk  eaa  »kyd" 

1180  IF  INKEYt  O "0"  OR  IN  31-0  THEN  GO  TO  1070 

1199  CLS  ^ 

1200  GO  TO  10  /i*  \ 

2000  PAPER  6«  REM  FFFFFFFFFF  A  [ LS  Jk 

FEKSTRAF  FFFFFFFFFF  A» i  Ifl.  ‘  V  . 

2001  FLASH  1  ^  /Ji  \ 

2002  INK  2  \  \  _ V  N 

2004  FOR  n-0  TO  21  - - — - - FST^I  4 

2003  BEEP  .  01.  n  \  \  \  MMjV#  jRl 

2006  PRINT  AT  n.  n  I  “ EKSTRA"  \  /]  /  »V  S 

2008  NEXT  n  \  \  T 

2010  FOR  n-22  TO  1  STEP  -1  ’  '/  fri/ 

2011  PRINT  AT  (n-22).  nt  "EKSTRA"  . - \  *  U  '  X*  i-A  * 

2012  BEEP  .  01.  n  \  I  /  /  \  / V  f  F  >* 

2013  NEXT  n  2><  .IZ  /  f  \ 

2020  FOR  n-0  TO  21  V.  /  /' - /  V 

2021  PRINT  AT  n,  1 1 1  "EKSTRA"  XZ  /  { 

2022  BEEP  .  01.  (n*20)  / - __  /  • 

2023  NEXT  n 

2030  PRINT  AT  10. 0 « "EKSTRAEKSTRAEKSTRAEKSTRAEKSTRA" «  BEEP  .1,10 

2031  PRINT  AT  1 1 , 0« “EKSTRAEKSTRAEKSTRAEKSTRAEKSTRA" «  BEEP  .1.20 
2033  PAPER  7 

2036  INK  0 

2037  FLASH  O 

2040  LET  1-141 

2041  GO  SUB  9999 

2042  FOR  n* 1  TO  100 

2043  PRINT  AT  ( RND-20) . ( RND-26) I  PAPER  <RND*7)5  BRIOHT  1«  INK  9« "EKSTRA" 

2044  BEEP  .  01,  1 

2045  BEEP  .01.2 

2046  NEXT  n 

2047  GO  TO  1020 

3000  SAVE  "BiOMSttr"  LINE  9800«  REM  ««»«  erotra 

tmtbt  paa  baand  vad  at  BREAKE  o«  skriv#  RUN  3000 


••  \ 


W 


'xCf 


Soft  Special  33 


< 


3001  OO  TO  3000 

3300  REM  BBBBBBBBBBBBBB 

a  r*mt&  BBBBBBBBBBBBBB 

3501  PRINT  AT  (c-l).dl  INK  4*"C"  ^5^—  V 

3502  LET  a<  <df6)/6)-a<(d*6)/6)-3  M 

3503  PRINT  PT  a(  Cd*6>/6>.  dl  INK  6l"D"  n/S  ,/jWf 

3504  FOR  n-69  TO  50  STEP  -3 

3505  BEEP  .  01.  n 

3506  NEXT  n 

3307  LET  »■»♦4-MNT  (a<<d*6>/6>> 

3508  LET  »-0 

3509  LET  c- 19 

3510  LET  d-b  9  I  01 

3511  GO  SUB  9999 

3312  IF  »>1000  AND  »<1030  THEN  LET  »-»*31 «  GO  TO  2000 
3513  PRINT  AT  19. (d-l> I" 

3700  GO  TO  109 

5000  REM  CCCCCCCCCCCCCC 

navnC  CCCCCCCCCCCCCC 

5001  LET  i*«*  "l  LET  o*l:  FOR  a-1  TO  31*  LET  **65 

:  PRINT  AT  2.0* “GODT  GJORTM’"Du  ar  dart  badsta  «o< ■ i*r  til  datta  »o. I. Skriv  d. 
t  navn  mad  utt«rn»  5*8  X .  i  at  no*r#  fra*  ot  t.  ita«*  i  aifabatat  mad. tryk  caa 

O  naar  dar  staar  dat  r i at i aaboastav. "• “6*SLUT" 

5010  IF  INKEY4--6*  OR  IN  31*6  OR  IN  31*6  OR  IN  31*5  THEN  :  LET  r»<q>m"  PRINT 

AT  12.0* 2* *“  “*  RETURN 

5011  BEEP  .01.0*  BEEP  .01.1*  LET  *■*♦(<  INKEY**"8"  OR  IN  31*  1  >  > -C  <  INKEY»*“5“  OR  I 
N  31*2) >*  IF  **91  THEN  LET  *-64 

5012  IF  *-63  THEN  LET  **90 

5020  PRINT  AT  12*  (o-l )  I  INVERSE  1*CHR»  *<  i  IF  !NKEY*-*0*'  OR  IN  31*16  THEn  BEEP 
.  1.0*  BEtP  .1,75*  BEEP  .1.30*  LET  i*(a>-CHR*  *7  PRlfciT  AT  12.0*2*:  LET  o-a*l*  NEX 
r  »t  RETURN 
5999  GO  TO  3010 


T  »i  RETURN 
5999  GO  TO  3010 

9800  REM  EEEEEEEEEEEEEEEEEEEEEEEE  Et r af. k  o 

a  . nst rut  i onE  EEEEEEEEEEEEEEEEEEEEEEEE 

9 39?  RESTORE 

9900  PAPER  7 

9901  INK  O 

9902  BORDER  4 

9903  FOR  n-U8R  "a"  TO  63616 

9904  READ  a 

9990  POKE  n.a*  NEXT  n 

9991  CL  S 

9992  PRINT  TAB  101  INK  5l  PAPER  1 1 “BLOMSTER"’  INK  Ol  PAPER  7l"I  datta  •»<■  ar  du 
an  tartnar  A.dar  thai  radda  di  na  biomctar  "l  INK  2l"FFF“*  INK  Ol“ 

"*  INK  41-EEE"!  INK  Ol“fra  at  bliva  to. tt  af  6  Kaamoa  bi  I lar  “I 
I NK  2I-D-I  INK  Ol"." 

9993  PRINT  "dar  »om-ar  i  lanta  traada  "I  INK  4I"C"I  INK  Ol"  nad  ovar  tKaarman. "• 

"Du  nar  3  liv  ot  faar  "I  FLASH  11  INK  61  PAPER  2l "EKSTRA" l  PAPER  7*  FLASH  O 

*  INK  Ol"liv  for  hvar  1000  øointt" 

9994  PRINT  "For  at  kunna  faa  »ointt  thai  du  shyda  aftar  bi l larna  mad  thyan  "i  IN 
K  3l"B"i  INK  0*"taa  da  bi  i  var  ramt. ot  du  faar  »ointt  aftar  hvor  bi l larna  ar. 
Hvit  du  ar  for  lanaat  vaah  fra  billån  ot  du  tkydar  han  thyan  nadbrydat  af  luf 
tan  ot  tiftan  har  intan  virhnint  »aa  bi  i larna. Brut  3*8  til  V/H  ot  O  tii  skud. 
Enar  brut  kampston  ioyttick.  " 

9993  BEEP  .01.RND*20i  PRINT  AT  21.01  PAPER  INT  CRND*7)I  INK  INT  ( RND*8> l "Tryk  »a 
a  an  taat  for  at  ttarta  !" 

9996  IF  INKEY6-""  THEN  00  TO  9993 

9997  RUN 

9998  DATA  24.24.60.60.60.  126.126.126.28.36.28.85.  170.56.28.36.  16.  16.  16.  16.  16.  16. 
16.  16.  16.  186.  186.  254.  56.  214.  146.40.  66.  36.  197.  1 10.  56.  1 12.  48.  235.  O.  O.  O.  O.  O.  O.  119.  1 
19.0 

9999  PRINT  AT  O.Ol  PAPER  41" - •  j AT  O,  0l"__Scora*"l 

ol" — Hi  i " I  hl  *  —  "lt*(l  TO  (l-l)»i  RETURN 


Modstands¬ 

bevægelse 


■  De  fleste  tolk,  der  pusler 
med  elektronik  på  amatør  el¬ 
ler  protessionelt  plan,  kom¬ 
mer  på  et  eller  andet 
tidspunkt  ud  tor  at  skulle  be¬ 
regne  modstande. 

Det  gør  man  normalt  pr. 
håndkraft  eller  lommeregner, 
men  man  kan  udmærket  la¬ 
de  en  Commodore  64  foreta¬ 
ge  arbejdet.  Dette  lille  smarte 
program  kan  ovenikøbet  ud¬ 
regne  afvigelser  i  modstan¬ 
de. 

Programmet  spørger  om  de  fi¬ 
re  farver  på  modstanden.  Ud 
fra  de  oplysninger  kan  det 
dels  beregne  værdien  dels 
afvigelsesprocenten.  Be-, 
mærk  i  programmet,  at  ø  er 
nul  og  Å  er  AA.D 

Allan  Kristensen 


1  REM  MOBSTANUSKOIiE 
5  REM  MADE  BY  ALLAN  KRISTENSEN 
lø  PR  I  NT  "  CM  "  : P0KE53280  > 6 : P0KE5328 1 > 6 
20  PRINTTRB(  13)  "rXIODSTRNIiS  KODE" 

30  PR  I NTTRB  (11)"  MWW  r — tTtt-tt - tt— ,  •' 

4ø  FCiRJ=lT04:PRINTTRB(ll)"  I  II  II  II  II  I  "  :  NEXT 

50  PR  I  NTTRB  (  11)"  L — - -lx-j  » 

6ø  PRINTTRB(7)  "TT1  / - H"TRB(28)"  1 

7ø  FGRJ=1TQ2 : PRINTTRB<7) " I "TRB(32)M I " : NEXT 

80  PRINT"MB(I«S«l®!ttb."  •  F0RJ=1T04 :  PRINTJ"II.  FARVE  :  INPUTRS 

90  IF  A$="S0RT"  THEN  R< J)=l : B( J)=0 

løø  IF  R*="BRUN"  THEN  fl<  J)  =  lø  :  B(  J)  =  l 

Hø  IF  R*="RøIi"  THEN  R< J)=100 : B( J>=2 

120  IF  A$=" ORANGE"  THEN  R< J)=10T3 : B( J)*3 

130  IF  R$="GUL"  THEN  R( .J)  =  lø-T4  :  B( J)=4 

140  IF  A$="0RøN"  THEN  R< J)=løT5 : B( J>=5 

150  IF  R*="BLRR"  THEN  R< J)=løT6 : B( J)=6 

160  IF  R$-" VIOLET"  THEN  R( J)=løT7 : B( J)=7 

170  IF  A*="GRRA"  THEN  R< J)=10T8 : B< J)-8 

180  IF  fl$="HVID"  THEN  R< J)=10t9 : B( J>*9 

210  IF  J<4  THEN  NEXT 

220  IF  R$="GULD"  THEN  C(J)=5 

230  IF  A*="SØLV"  THEN  C(J)=lø 

235  IF  R$="RøB"  THEN  C(J)=2 

24ø  IF  B(2)>øTHENLET  B< 1 )=B( 1 )#lø+B(2) ; LET  D*B(1)*R(3) 

243  IF  B(2)=ø  THEN  r=B(l)#A(3) 

245  PRINTTRB<5)  "!  I II I II II I W10DST  ANDEN  ER  PRR"; 

250  IF  D>=ø  AND  B<=999  THEN  300 
260  IF  B>løøø  RNB  D<=999999THEN  4øø 
270  IF  0999999THEN  500 
3øø  p$="" 

31ø  GOTO  94ø 
4øø  LET  H=HXløøø 
410  P$="K" 

420  GOTO  940 
430  GOTO  940 
5øø  LET  B=B/ løøøøøø 
510  P$="M" 

940  PRINT  B; 

950  PR  I  NT  "3"  TAB  (27)"  (MlWIrøUSmUiWU«  " ;  pf ••  OHM 
960  PRINT"  MED  TOLERANCE  PRR" ; C(4) ; "Y." 

970  PRINT"  KKOBiTTRYK  BF  IB  FOR  RT  FORSRETTE" 

løøø  F0RJ=1T03 : PRINT"  " : NEXT 

lølø  GETfl$ :  IFR*0"B"  THEN  1010 

1020  CLR 

1030  RUN 


34  Soft  Special 


Proxon  angriber 


■  I  spillet  "Proxon  angriber" 
befinder  du  dig  ved  styrepul¬ 
ten  i  rumskibet  Stellar  Fighter, 
der  er  det  eneste  tilbage  at  en 
hel  armada  til  beskyttelse  at 
din  fredelige  planet . 

Din  opgave  er  at  forsvare  din 
hjemklode  mod  fjendtlige 


missiler,  der  udsendes  i  en 
strid  strøm  fra  krigsplaneten 
Proxon. 

Da  du  styrer  fredsplanetens 
eneste  tilbageværende  rum¬ 
skib,  skal  du  passe  ekstra  på. 
Skibets  beskyttelsesskjold  kan 


nemlig  maximalt  tåle  at  blive 
ramt  fire  gange,  før  det  smad- 
res. 

Spillet  styres  med  A  for  op  og 
Z  for  ned.  Missiler  alfyres  med 
space-tasten.D 

Flemming  Christensen 


y/Ji. 


9  GO  SUB  3000 
10  FOR  a=l  TO  5:  READ  a$ 

"  20  FOR  b=0  TO  ?:  READ  c 

30  POKE  USR  a*+b,c 
40  NEXT  b :  NEXT  a 

50  DATA  "a", 48, 48, 56, 191, 127, 255, 1,0 
60  DATA  "b", 0,0,0, 192,48,8,255,0 
70  DATA  "c", 0, 15,63,255,63, 15,0,0 
""  80  DATA  "d", 0,255, 255, 255, 255, 2S5, 0,0 

90  DATA  "e", 0,227, 255, 255, 255, 227, 0,0 
100  PAUSE  l:  IF  1NKET*=""  THEN  BORDER 
0:  BORDER  2:  BORDER  6=  BORDER  4=  BOROER 
5:  BOROER  0:  GO  TO  100 
llø  BORDER  7 
fl  120  CLS 
1  1000  LET  x=10 

'  1010  LET  tn  I  =0  :  LET  I  i  =0 

1020  LET  s  =0 

1030  PRINT  AT  0,0; "Score  :  ’’ ;s 
1035  LET  xl=INT  CRN0*19)+2 
1037  LET  m i =0 

„  1040  FOR  n=28  TO  2  STEP  -1 
MS*  1050  LET  x=x+CINKEY*="z"  AND  x<203-CINKE 
Y*="a"  AND  x>2) 

g  1055  IF  INKEY#="  "  THEN  GO  SUB  1500 

r  1059  PRINT  AT  x-1,01"  " 

,  1060  PRINT  AT  x,0;  INK  f i  ; "ab " 

>  1061  PRINT  AT  x-H,0;"  " 

/.  1070  LET  xl=x]+CRND<.  1  AND  xl <20)-CRND>  . 

V  9  AND  xl>33 
■  1079  PRINT  AT  x 1 - 1 , n  J " 

™  1080  PRINT  AT  xl , n  ;  INK  mi;"cd«  » 

1081  PRINT  AT  x 1 + 1 , n » " 

1090  NEXT  n 
1100  LET  (1=11+2 
1110  IF  (1=6  THEN  GO  TO  2200 
1112  FOR  a=30  TO  10  STEP  -2:  BEEP  .05,a: 
BEEP  . 05, a+5 :  BEEP  .05,a-5:  NEXT  a 
L  1115  PRINT  AT  xl,n+lj"  • 

Vvl  1120  GO  TO  1035 
V  1500  FOR  J=2  TO  7  STEP  5 

1510  PLOT  INK  J !17, 175-x*8-6 
1520  DRAU  INK  J ;o*8-17,ø 
3L  1530  BEEP  .1,40 
M 1540  NEXT  J 

ff  I  1550  IF  x=xl  THEN  LET  ml=ml+2 
-il  1580  IF  tn  i  =8  THEN  GO  TO  2000 


1700  RETURN 

2000  PRINT  AT  xl ,n+l i  FLASH  l;”cd«" 

2010  LET  s=«+lø 

2020  PRINT  AT  0,7;  FLASH  lis 

2030  FOR  a=10  TO  40  STEP  2:  BEEP  . l,ai  8 

EEP  .05,a-5:  NEXT  a 

2040  PRINT  AT  0,?;s 

2050  PRINT  AT  xl.n+1 i" 

2100  GO  TO  1035 

2200  PRINT  AT  x,0;  FLASH  l;"ab" 

2205  PRINT  AT  xl,n+l ;" 

2210  FOR  s  =  1  TO  4:  FOR  a  =  10  TO  20:  BEEP 
. 05, a :  NEXT  a:  NEXT  s 

2220  FOR  a=40  TO  10  STEP  -2:  BEEP  .l,a: 
BEEP  . l,a-5:  NEXT  a 
2230  PRINT  AT  x,0;"  " 

2240  FOR  a=l  TO  22:  PRINT  AT  10, a;"  GANE 
OUER" :  PAUSE  5:  NEXT  a 
2245  PAUSE  50 
2250  CLS 

2260  PRINT  AT  10,6;"Et  spil  mere  ?. (J/N) 
2270  PAUSE  0 

2280  IF  1NKEY$  =  ''J"  THEN  CLS  :  GO  TO  100 


2290  CLS 
2300  STOP 
3000  PAPER 
3005  PRINT 
3010  PRINT 
s-  siler, 
ange  loer  d 
et  spr  i n9er 
3020  PRINT 
d i 9  j eksp  lod 
skjold." 
3030  PRINT 
s  i  I  faar  de 
at  for 
Det  s 


?:  INK  ø:  BORDER  ?:  CLS 
ft T  0,13;  INUERSE  lrniSSIL" 

* "  Du  bliver  angrebet  al  ml 
Hvert  missil  skal  rammes  4  9 
ets  skjold  bryder  sammen  09  d 
i  luften." 

"Slipper  der  et  missil  forbi 
erer  det  09  beskadiger  dit 

"  Hver  gan9  du  rammer  et  mis 
n  en  lysere  farve  som  tegn 
svar ssk jo  Idet  bliver  forri 
amme  gae  Ider  for  dit  I  ly. 


3040  PRINT  '"Du  styrer  ned  med  2,  op  med 
ft>  09  skyder  med  space." 

3050  PRINT  ftT  20, 10 ; " TRYK  EN  TftST" 

3060  RETURN 

3100  SftUf  "ni  s* i  I"  LfNE  \ 


li  :: 

-  Altom  DflTR  | 

i 

•3 

m 

C# 

, - . 

1 

jf 

,e  II  » » 

© 

©J 

— ^ 

0$ 


■  Kærelæser  , 

/  Vi  håber,  at  du  er  tilfreds  med  programmerne  i  \  \ V  *  J  U 
i>  SPECIAL. 

I  Skulle  du  ligge  inde  med  tilsvarende  gode  -  og  måske  endnu  sjovere  og  J 
bedre  -  programmer,  du  selv  har  lavet,  hører  vi  gerne  fra  dig.  SOFT  er  C 
nemlig  Issernes  blad,  og  vi  betaler  op  til  1000  kroner  for  et  rigtig  spæn-  ] 

■ — r  dende  program.  Og  måske  får  netop  dit  program  en  fremtrædende  plads  1 
i  det  næste  SOFT  SPECIAL  eller  i  "Alt  om  Data".  1 

Indsend  dit  program  på  kassettebånd  eller  disc  og  gerne  vedlagt  en  ud-  S 
printning.  Samtlige  programmer  testes  og  vurderes,  inden  de  offentliggø-  1 
res.  Alt  materiale  returneres  efter  brug,  og  bladet  har  fuld  ret  til  at  publi-  i 
cere  programmet  på  tryk  og  eventuelt  andet  lagermedium.  \ 

Programmer  sendes  til  "Alt  om  Data",  St.  Kongensgade  72, 1264  Køben-  \ 
havn  K. 

- — — n* 


Soft  Special  35 


J.R.’s  ri  va  I 


■  I  OFF-SHORE  til  Lambda/ 
Maiathon/Power  gælder  det 
om  at  sejle  rundt  og  bore  efter 
olie.  Derefter  skal  fundet  brin¬ 
ges  i  land,  eksporteres  og  du 
skulle  så  gerne  tjene  penge. 
Den  der  sidst  i  spillet  har  flest 
penge,  er  den  lykkelige  vin¬ 
der. 

Hele  spillet,  pånær  bankfor¬ 
retningerne,  styres  med  joy- 
stick.  og  det  har  foruden  de 
velkendte  funktioner  to  nye: 
Tryk  på  skudknappen  bety¬ 
der  ja,  mens  vippen  med  pin¬ 
den  betyder  nej. 
Oliefelternes  omfang  og  be¬ 
liggenhed  veksler  fra  spil  til 
spil,  men  jo  større  dybde  du 
borer  pd,  desto  mere  olie  kan 
du  finde  -  hvis  der  altsd  er  no¬ 
get  pd  DET  felt. 

Hvert  nyt  spiller-display  spør¬ 
ger,  om  du  vil  sejle  eller  bore. 
Hvis  du  ikke  vil  nogle  af  dele¬ 
ne,  fdr  du  en  række  andre 
muligheder:  proviant ering  af 
dieselolie  til  sejlads  samt  føde¬ 
varer  til  mandskabet.  Er  du 
først  i  søen  bliver  det  dyrt  med 
en  nødvendig  helikopterassi¬ 
stance.  Bankforretningerne  er 
lige  ud  ad  landevejen,  men 
husk  at  bdde  gæld  og  tilgo¬ 
dehavender  trækker  renter, 
og  at  diskontoen  kan  variere! 
Hjemsejling  sker  ved,  at  du 
sejler  gennem  de  inverse 
plusser  med  oliefelter.  Når  du 
har  samlet  tilstrækkelige 
mængder,  bør  du  sejle  i 
havn. 

Koncessioner  tilhører  normalt 
staten,  men  kan  købes  (højst 
10  ad  gangen)  til  6000  $  pr. 
styk.  Kort  over  koncessioner¬ 
ne  fås  på  forlangende.  Eks¬ 
porten  er  også  et  kapitel  for 
sig,  men  som  ved  alle  de  an¬ 
dre  finesser  gælder  det,  at  ef¬ 
ter  et  par  gange  forstår  man 
systemet.  Efter  hver  spillerun¬ 
de  vises  display'et,  indtil  der 
trykkes  på  et  eller  andet  igen. 
OFF-SHORE  er  et  spil  med 
ganske  mange  uventede  be¬ 
givenheder,  og  husk  at  hver 
eneste  oplysning  på  skær¬ 
men  har  en  betydning  !□ 

Jan  Hansen 


KRSSEBEHOLD 275B9TØØØKR. 

D IESEL  *•**■#*♦*■***  f  ■*■*♦•**  ■»■  *  ■*•***■** 3r.l 3 
FØDEU  .#**##**♦*****■** 

OLIEFUND  ;  0 _ I  TANK  O 

e.4B 

BPMK FORRETNING 
OL IETRRNSPORT 
PROUIRNT ERING 


> INGENTING 
KONCESSION 


1  SRUE  "OFH" 

2  P.EM  REU23 

3  SOUND  8 , 3000 

10  T**" 

11  Z  =  IS 

12  C  =9990 

13  R  =  20 

14.  ULVK  =  8110 
15  US=9 

18  FLR  =0 _ 


30  RU=9900 
33  DI*10 
4-0  RU  =500 
42  R I =520 
45  BPNK =3000 

sø  * 

V$M“*********************** 

90  FRST 

100  DIM  Y*(3,225) 

110  FOR  Q«1  TO  225 


120  Yi (2,0) «STR$  ( 
125  Y !  I  (1,0)  =  ”0" 

130  Yt  l  (3,0)  *"  V 

150  NEXT  O 


INT  C RND #10) ) 


160  H*15#( (1+INT  (RND*15>))-7 
170  H=H-3#INT  (RND#7) 

190  FOR  0*1  TO  30 
195  U-H-3-f INT  |RNO»7> 

200  IF  RND  < . 5  THEN  GOTO  240 
210  G-J-4  +  INT  (RND  *9) 

230  GOTO  250 

240  G*J-60+15< (INT  (RNO*9> ) 

250  IF  G  < 1  OR  G >225  THEN  GOTO  2 
00 

260  Yf  (  1 ,  G  )  *”1" 

270  NEXT  O 

272  SLOU _  _ 

274  h $  =  "SHÆfifci*  ‘  i •  v. : 

HBHÉoffsh- 

276  M= 15 

264  FOR  0*1  TO  16 

286  M-M*l 

290  X  * INT  (RND #3) 

296  FOR  J*3  TO  16  STEP  *4 1 

298  PRINT  RT  U,M;  ••X" 

299  IF  U>8  RND  U  <  12  THEN  PRINT 

RT  tM+1) 

300  PRINT  RT  20-«J,31 -M;  "X” 

301  IF  U>B  RND  J<12  THEN  PRINT 
RT  20— J ,31 -H; RS (32— M) 

302  SOUND  3,90 

303  NEXT  J 

304  SOUND  56,700 

305  NEXT  O 
307  gosub  ru 

315  R  $  b  **  ** 

.,320  print 

330  INPUT  R 

RIM  K(R) 

345  DIH  HtRy 
350  QIM  8 (R) 

352  DIM  X ( R ) 

354  DIH  Y (R) 

355  DIM  F (R) 

360  DIM  O(R) 

370  DIM  T (R) 

380  DIM  GIR) 

390  GOSUB  RU 
392  DIM  N$(R,7) 

395  FOR  0*1  TO  « 

400  PRINT  RT  Z  ,  0  ,  ■  ~  —1M.. 

(CODE  5TR$  O  V 128)TTHiÉSH 

405  INPUT  NS (O) 

410  FOR  J*1  TO  7 
lll®  =CMR$  (CODE  N$(0,U)4 

425  NEXT  wl 

430  PRINT  em  ;  NS  (O) 

435  GOSUB  RU 

IF  Q>1  THEN  M (O) =27-340 
( 438  K (O) =2500000+INT  (RND#50000 

440  B(0)=20+INT  ( RND  420  f 

442  F (O) *15 
444  X  (O)  =H  (O) 

446  Y (O) =15 
464  NEXT  O 
466  GOSUB  RU 

468  PRINT  RT  Z  ,  ø ,  SHBS«in2ZH»E 


470  INPUT  D  V  Hl' 

499  GOTO  løøø 
310  CLS 

DS-®rtRINø  "*StK9SSEBEHC1- 

U  S4-  T'®'  DIESEL”.  RT  3,ø ,  "FODE 
SJØ  S*=STR*  S 

B80  i*ff 

Cs**a)' +  12I)  S *«VlT1TM'w|,j|ti  t6oGt 

S-70  PRINT  RT  1  ,  .  • 

?§t'  **• ” 

*i.T>  x INT  K  (T) 

Ki  gJTj*!  tmsn  g°to  eøs 

e488‘2°!*S^“  sæ 

TO  S’lTM8  ™EN  P"INT  «T  £ 
LTMEN  goto  650 

6®u*c  fo aI>fp®TTHEN  PRINT  RT  3- 
,ii”*(FTS'Furf5  then  print  m  3 

yS=US-l-fRND*2 

#10?  IF  US<4  US*US#INT  (RND 

888  :.å& — „...  ... 

Uo  '  , 

II®  1%.? 'Ti^®^THEN  A8TURN 
DIT ) = INT  G (T) 

..1S|  !5isr^vs?weggrg  Z?gm. 

699  RETURN 

fiT  S.ø,  "TIL  GODE  ",  -o 

939  RETURN 

*828  Pgg  ?:?  ?§  s  STCP  -1 

lSI2  THEN  GOTO  1029 

*888  ,RND*7’ 

ÉS3"  ■  oiI!F..flT  10-0;  ■OK«3»4iilf. 

løgs'  GOSUB  c 

iSiø  io5ié0Ru>*c>1'^<G<T, 

Hil  ^I^TL^THEN,ÅOTÅ.yaK 


10*1  PRINT  RT  Z,0;T$  ^ 

1110  GOSUB * 6900  ™tN  GOTO  2®®0 
1150  CLS 

SSSUB 

H22  22SUB  c 

1200  O 

79001F  INT  tSy'B)  -S^B  TMEN  GOSUB 
1210  NEXT  S 

li!i  i^.iiøåi5  5Tcp  « 

igsø  cls 

iitl  PRlS?  H*  <  n  ,N* (3) 

1066  PRINT  "  bm—... 

g  g  gss  JES 

|!!I  ilf  --SL-g.2,  . 

h 

a0J2' 1^"60NcJssi6n'-  "  INGENT  INO  ••  i  P, 
S046  PRINT  RT 

‘  -2*  IINKEV 

"  60  PRINT  "T  H,ø;..>...„t  M.a6j>1<  . 

jn:  ~  rsnr0" THrR  — 

HH  i^.rT§'§i 

2082  PRINT  Ts  1 

2083  NEXT  O 

1111  &‘i1fiF?.s?s?.ååi? 
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il!  1  printTrt0zTSe^SSto  3=®0 

;  -K  (T )  ;  ”  KR?"  If®WDSR..MRNGLER  ” 
ØgUCNDlOT"  '  RT  17'®'  -  LflfiN  N 

GOSUB  C 

3®ll  PRiSt0’-7  ™eN  GOT° 

3DER  ØNSKES"0* '  SKf,1U  MUOR  iieoet 


r-«o.rNI  OK.  S 

ØNSKES" 

3050  INPUT  K 

52Z0  ®  < T )  C g  ( T )  +K 

5S2S  ££T£  ***« 


i'ir-u  i  u 

3550  PRINT  "OK" 

3560  K,  (T)  =K  (T>  -U 
2=7®  G  <T>  =G  <T>  -U 

3S90  print  RT  17,0,  "DET  Ef)  NU  SK 

3600  GOSUB  C 
3699  RETURN 
3950  GOSUB  RU 

3960  PR  I  NT  PT  Z  .  g  .  æww  i  ■  fnT 


39701  SOUND  éØØ  ,  4-0000 
3000  GOTO  1200 
4-002  UeØ 
4-020  GOSUB  Lft 

122?  PPfINT  RT  X  (T )  .Y(T)  11- 

S+pfj IF  F  (TI  .26  THÉN  PRINT  RT  3, 

6®|:?T?^  -0<-T>  t26  ™EN  PRINT  RT  2, 

?2?S  ?OUNO  10,300 
4040  GOSUB  C 

121?  Z  *F  <T>  -i 

4044  B (T) =B (T) -1 

‘li?  IF  vTT,I?5NQg?TO  4048 

EN  O  OT  O  4Bøo_1S  RND  XCT)»MCT>  TH 

4øsl  OR  f<T)<1  then  RE 

-4®w  PBXNTflT  Xlt),V(T);MX" 

4058flX(T) sXIT) +(J$="R"  AND  X (T )  < 

311  -  (U*  =  "4I,:» 

406©  V  (T)  aV  (T)  4  (  J  $  =  ”  F  '*  )  -  (UJa-'T" 
AND  V  (T)  >0) 

4070  IF  PEEK  ( 16510+  (33*X  CT)  )  -fY  ( 
T) ) »149  THEN  GOTO  4100 

lø!S  GOTON403S7  ™EN  G°5UB  7760 

4100  U  sU  +3000 

4110  PRINT  RT  5,0,  iTTI  f  |  |„H  ^  . 

4120  I^TU  <0 


4140  GOTO  4030 

tr?0RNDTu’IoTT.OU  ”ND 
t??5R°DTi^T4r,(U  RND  u<0,t>>-'o 

‘S10  RETURN 

^S4oé?0X4J^>H,T)  °R  V(T»<>«  T 

5010  PRINT  RT  6,0 
5012  FOR  Q«l  TO  2 

Iiii  5I5ttou*'  u*'  u*'  u*'  u*'  u*;  t* 

5020  PRINT  T  $ 

5025  GOSUB  RI 

5040  PRINT  RT  7  .  i  o>  i  |l|,|M  —  m 
505  0  PRINT  •TÉÉÉi^Értf'liTi 


5080  PRINT 


*i0?BRRINT  «T  16,0-1; »  »;RT  16,0 

™£?vS:?^12aSV*--r'  »ND  0,31,-, 
5130  IF  INKEVJa" 


5180  O.OHINKEVt.-F" 
|NKEY*»"7"  rnd  6>a, 

5130  IF  INKEY*="U"  T 


§130  IF  INKEY,.^'tHEN  GOTO  315 

514.0  GOTO  Siøø 
5150  Q=a»0 

§}==  U*«"7"  TMEN  GOTO  5200 

g}6®  P7INT  (0*US*751J 
5170  B  IT,  =B  (T,  +0 

s 180  goto  5aae 

3300  REM  feNMg 
=  210  R»INT(B*US*106, 

5215  F(T)=F(T)+0 
saaø  k  ,t,  >K  ,T,  -p 
5300  PRINT 
5310  GOSUB  C 

iSII  gSt^*^^"  thcn  RerruRN 


S540  FOR  0*15  TO  Y  CTJ  STEP  -1 
B”"X"RATTHrr)MoT»'°;  T  HCT) 

SSÉlB  s6uND  Z,1^ø' 

5570  NEXT  O 

*  ;  nT  °'Y  1 

5590  NEXT  O 

T??m  ,Try?J*30004<1B-Y  <T>  +  <OBS  <x  < 

SI22  SiT)  =K  (T>  “N 

•  5606  SOUND  3 , 9000 
®jJfS  KRZ"T  R^  5'®'  "DER  KOSTEDE  •• 
ÉS3-S  gOUND  156,50000 

|»  "Tooo  Ké?'-' INT  IIUT1/i®0 

5618  PRUSE  100 
5620  GOTO  5010 

6001  BB  =  5 

6002  U  =2000 
6005  CLS 
6008  E=5-*-INT 

fg®g  ggTO  6100  ND  1S) 

Ilil  ^giKT  RT  16-S*R, 0;  U* 

60ia  FOR  0=1  TO  R 

•fiSDES**"  "*<2>  *"  ,T  (O,  ,  -* 

6030  PRINT 
5022  NEXT  O 
6023  SCROLL 

1111  ggggtfc 

Hil  IVlll* ■«EN<Sg2?‘p*p*‘" 

Hil  SKg;:!  TtJiE  iB|?g*2 


“if0=?Ri^pgisR^rviaD^=Be;os 

6041  T(T)=T(T)-E 

i^«t0  i5Miy  ■ 

6046  PRINT  RT  ø , 26  E 

11«  -  ™^S?>^TGosueo7eeøp 

6050  RETURN 

liil  <tit>,2øøø, 

6150  FOR  Pal  TO  N 

6160  PRINT  RT  5 , 0,  u$  i  P  ■  ••  op  IR- 
I.";N;"  RUNDER"  *  '  ’  RF  IRi- 

6160  PP  TNT  N*,J,;-.  STYRER  BUDENE 

P 1  I^ORDEhT"  "TRYK  JR'  WI5  SRLG  E 
*185,  PRINT  " KASSEBEHOLDNING  NU  •• 

6190  GOSUB  6010 
t-191  SOUND  6 ,  LR 

scroll 

6193  SCROLL 

lili  Et ]y>  «« 

6215  FOP  I wR  TO  1  5TFP  1 
llll  |I»INT  Tg^.ggT0  6250 

S??9  ";N*‘ 

6235  GOSUB  C  LRUERS 

Ilt!  scroJl"*3"  then  GOTO  6*®® 

Illi  PRINT1  BBH 


5 !H!  °5,J)  *-u*us»BB 

6300  T  (U)  =T  ( J)  -U 
6JØS  SOUND  150 . 13000 
6310  GOSUB  C 

llll  cls‘J*<>"U"  THCN  Return 

|iTiø?lT?l-^D°gg<!|)>20<-<=  fiND 
liil  5Ex?’g  THCN 

6335  RETURN 
|4|0  SCROLL 

fil! 

|445  IF  INKEY  TMEN  GOTO  644 

6447 

6450  GOTO  6315 
6470  SCROLL 
SCROLL 

&47S  print  RT  R.Ø:-|llWl 


^77  SCROLL 

GOTO  6285 
6910  GOSUB  LR 

6920  PRINT  RT  5.0; "SKAL  LICEnskh 
PT  OUENI-  40000'  KR.  ”  »-ICENSKO 
6930  GOSUB  C 

6933  IF  J$<> "U"  THEN  GOTO  7øøe 

6934  IF  RND >.96  THEN  GOTO  8400 

6935  FRST 

6936  FOR  Bal  TO  R 
6940  FOR  0*1  TO  15 
6945  SOUND  9 , RU 
6950  FOR  J*1  TO  15 
6952  Sf*Y»  (3 , 15#  (0-1)  4  vi) 

69B3  IF  THEN  GOTO  6970 

f9ltoa-5?SSJ5iB^^K^!apSITT0R 
Såi?+yø  RNG  B<  >rt >  * 1S*  °~ 

iisi  NEXT  B 
6988  SLOU 

ISSS  K  CT)  =K  IT,  -40000 

:1*1"  X  i m 


7M5T5TPT TT* 

TSS?  55INT  RT  S,0:u* 

ø)  xløoøTWTog^  ^NT  (K  (T,  7100 

TØØS  F (T) »F (T) -1* 

Zg®T  SOUND  14,1000 

7!?!  52^?, 

6+rTTf;  <2B  PRINT.  RT  3, 

7020  Yey  (T) 

IIP  SSSS  ST  X'Y^“" 

T®29  PRINT  RT  X  . . 

7035  X*X+ U«U”otH|N  GOTO  7100 

X>W  R  nND  x<ai»-®5*=- 

7"  RND=Ytøy*'"F"  OND  T<1S,  —  ,US  =  " 

UP  o”T,*lBrr,?iY;  "B" 

TURN  IF  8<t><1  or  F,t,  <1  TMEN  RE 
6+B^T? F  ..®-T  *  <a®  TMEN  print  RT  2 
??ø|  |°yONT02598  THCN  GOSUB  7730 

5H!  Y,Y>  ;y 

RETURN  <T>  "1S  OND  X,T,=M(T)  th 

T„  Y*(a't->-  X-  tmen  goto  77 
y?=I3?Ir  tmen  go 

7l2!  lg?N?-L?8  Y  *  <a  ,  L, 

Tip  siyw^.i øfex*,o> 

NEXT  U 

7153  lFTRND'Ti^laø0*uS*.u 

^60  IF  Y*<^^NtG0T0g770%3 

717^prin+Lrt  5  ø  "gnBSBHee^B 

?¥eø  SOUND  150 , 19000 

7189  NEXT  P 

7190  RETURN 

7200  FOR  0=1  TO  LEN  X$ 

7210  PRINT  RT  X.Y;X*(0) 


7220  SOUND  60-2*0,100 
7230  NEXT  O 
7240  Y$ ( 1 . L ) ="0- 

7250  FU=URL  Y %  1 2 , Li  * 1000 +1NT  IRN 
D  * 1000 ) 

7260  PRINT  RT^^^N$  CT>  ;  •■aSEHaS 


WPI  SOUND  iflflile 
7290  Y*(2,L)  =  "ti" 

7300  0(T)=0(T)+FU 
7305  PRINT  RT  4,9,  O  (T) 

7310  PRUSE  100 
73aø  NEXT  P 
7350  RETURN 

7700  FLflsl 

7705  K (T,  *K  ,T,  -løøøøø 
7710  GOTO  ULYK 

7730  Yil6=K  <T>  -200000° 

7735  X  =H*(T , 

7740  FLR=2 

??I8  IISI3ulyk 

|||i  g;^ 

7777  UaU-R 
ZZ22  GOTO  ULYK 
7800  FLA =4 

7såS  <RND#6, 

R$  =  STR$  p*.’*  prj 

?§li  ^■5l?^-r‘(F'y,-®®> 

??s?  ?ggy° a - 2000 

7910  FOR  o«i  TO  235 

793§  NEXt'o1'®’  ■”1'1  THEN  U.U.l 

7932  SLOU 

7933  PRINT 

7935  PRINT  "DER  ER  NU  ";U;~  FELT 
7940  print  "MED  OL IE INDHOLD  TILB 

5881  g??^Nc 

SS§§_g|#-T  »T  5  0, "6TRRT  „Ep  ^ 

8003  LP-ø‘“  lS£?"  LT  EB  NnSET 
6084  LI*ø 
0805  0*3 

6010  GOSUB  LR 

llll  SSfS, 

©014  Y*Y  (T) 

2®J5  GOSUB  c 
©Øls  SOUND  23 

IF  L!.øuTMKEgR^^  „ 

iiii  S^Siiv^?®0  0015 

URN  F  Y*(3,i_>  =N*(T,1J  THEN  R6T 

Hi:  IF  tmen  goto" 

0042  <T/ Xi 

8060  PRli^KRT)xSS02*US 

|§SS  S»S-».?A&N«f6«. 
if §s  IIIsrS0^”  ■  ,K<T^10 

°iøø  .■7.TriMiii,—  _ 


Iiii F  Ig-1  T™  — 

1111  Sgg?“p5iSS®s  STCR  - 

OIBØ  NEXT  o 

iiii  Ili¥!4- 

8194  NEXT  o  S'®.U*.T* 

§198 

8198  R=aø 
|3®®  RETURN 

EN  PRIm'  BT  6-® 

*  THeN  ff,int  «T 
®^®4  PRINT  Ma-13— 

©306  Print 

;>,r!u**ø®øø  Rgo1gsø?ø«N'>  Rio-+ 

IH®  §§££  2^i=®®®  *  '  J 

llll  ^’S^ria3^00*01 

lllpsl0?*!0'1’ *R*  ™EN  K,oj-«<o 

llllS  7130 

Itil  ^?NT=åTT2  10 

87^FogKERT  KORT”0rtT|KSX?K  UHCLI 

stis  5iyyD0ss'Rj  ;  * 

2^-®®  GOSUB  LR 
90?S  7®®ø 

||P  PR-“"RyT°<S>.16.n„0)  „„ 

iiii  pI^sVtS'® 

Hil  E3rj*&*xto*z?ur 

Si2l  PR int ”rtT°  R 

li||  NEXT  URT  XtJ>  .Y,U,;n,(0)1, 

||ss  ggrø!  TO  6 

|Iae  S§S8Il"t  ^w 
1121  SlgSL^ 

i  essø  RETURN 

999?  35.5K!®?J'""  TVÆ" 

9999  RETURN 
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Ampainter 


■  Nu  kan  du  lå  lejlighed  til  at 
udfolde  dine  kunstneriske  ev¬ 
ner  på  Amstrads  monitor. 
Med  dette  program  kan  man 
tegne  linier,  cirkler  og  firkan¬ 
ter.  Cirklerne  og  firkanterne 
kan  udtyldes  etter  behov. 
Programmets  største  fordel  er, 
at  du  kan  gemme  dine  teg¬ 
ninger  på  bånd.  Hvis  du  så 


senere  i  et  andet  program  (et 
adventure?)  skal  bruge  bille¬ 
det  skriver  du  blot  LOAD 
"IBILLEDE". 

En  anden  smart  ting  er,  at  du 
kan  tå  en  oversigt  over  kom¬ 
mandoerne,  uden  at  hele 
tegningen  bliver  ødelagt. □ 

Carsten  Olsen 


1000  REM  ********************* 

lølø  REM  *  * 

1020  REM  *  te9ne  Program  * 

1030  REM  *  * 

1040  REM  ********************* 

1030  SPEED  URITE  1 
1060  ZONE  1 
1070  MODE  2 

1080  REM  ************* 

1090  REM  *  * 

1100  REM  *  window»  * 

1110  REM  *  * 

1120  REM  ************* 

1130  UINDOW  #1,  16,42,6,16 

1140  UINDOW  #2,  47,75.6,18 

1150  UINDOW  #3,  1,50. 23, 25 

1160  UINDOW  #4.  70, 80, 25. 25 

1170  UINDOW  #3,  30,80,25,23 

1180  REM  X*************************** 

1190  REM  *  * 

1200  REM  *  danke  bo9staver  * 

1210  REM  *  * 

122ø  REM  **************************** 

1230  SYMBOL  6FTER  91 

1240  SYMBOL  ASCC'V  >,126,216,216,254,216,216,222 
1230  SYMBOL  A8CC  126,  198.206,214,230,  198,232 
1260  SYMBOL  ASCC "d" >, 56, 0, 124, 198, 254, 198, 198 
127ø  SYMBOL  RSCC "f" >, ø, ø . 1 16,26, 126, 216, 1 10 
128ø  SYMBOL  RSCC "0" >,0,0, 118,204,214, 102,220 
1290  SYMBOL  flSCC  >,48,0, 120, 12, 124,204. 1 18 

1300  GOSUB  3760'  CLS 
1310  REM  *********************** 

1320  REM  *  * 

1330  REM  *  initietin9  * 

134ø  REM  *  * 

1350  REM  *********************** 

1360  l«ø 
137ø  ia*l 
138ø  xfc-320 
139ø  200 

1400  \xfax’/. 

1410 

1420  tom-ø 
1430  linie«l 
1440  cirkel*2 
1450  firkant-3 
146ø  slet«ton 
1470  «ini»ø 
1480  maxb*638 
1490  waxh*382 

I5øø  REM  *********************** 

1510  REM  *  * 

1520  REM  *  st»rin9  mov*  * 


REM  linie 
REM  cirkel 
REM  firkant 
REM  udskrivnin9 
REM  indlfsnlrt9 
REM  sletnin9 
REM  MJflP 
REM  forfra 


1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 


REM  *  . 

REM  *********************** 

IF  INKEYC  0>»0  THEN  LET  *‘<"»>.+2 
IF  INKEY(0>-32  THEN  LET  y7.»ySM>10 
IF  INKEYC  2  ‘>*0  THEN  LET  sfc-v‘4-2 
IF  INKEYC  2  >«32  THEN  LET  10 

IF  INKEYC  8  >»0  THEN  LET  x7.-x*4-2 
IF  INKEYC  8  )*32  THEN  LET  xfc- xfc-10 
IF  INKEYC  1  )-0  THEN  LET  x'4»xX+2 
IF  INKEYC  1  )«32  THEN  LET  »W/.+  lØ 
IF  INKEYC  60  >*0  THEN  LET  lx5c-x*4 
LOCRTE  »4,1.1 
PDTUT  a*  "Kl  OP 
REM  *********************** 

REM  *  * 

REM  *  te9ne  art  * 

REM  *  * 

REM  *********************** 

IF  INKEYC 36 >-0  THEN  GOSUB  2170 
IF  INKEYC  62  )"0  THEN  GOSUB  2280 
IF  INKEYC 34 )-0  THEN  GOSUB  2700 
IF  INKEYC 42 )-ø  THEN  GOSUB  3020 
IF  INKEYC 33 >-0  THEN  GOSUB  3110 
IF  INKEYC  61  )*0  THEN  GOSUB  3200 
IF  INKEYC 44 >-0  THEN  GOSUB  4190 

IF  INKEYC 53  )-0  THEN  CLS-  GOTO  1380-  - - 

REM  ****************************************************** 
REM  *  * 

REM  *  »Or  g#  for  at  «ove  ikke  bevf9er  »i«  ud  af  skørmen  * 
REM  *  * 

REM  ****************************************************** 
ORIGIN  0, 16,0,638,398, 16 
IF  xKCmini  THEN  x^»«ini 

IF  x/£>maxb  THEN  x5c»maxb 

IF  wKnftni  THEN  xX-mini 

IF  xJOmaxh  THEN  x?<«maxh 

REM  ******************************************* 

REM  *  * 

REM  *  udskrivning  af  start  Punkt  o9  x,x  * 

REM  *  * 

REM  ******************************************* 

LOCflTE  »3,  1.1 

PRINT  »3,  "X«“,  USING  "**•"; xX, 

PRINT  03,  "  Y«M.  USING  -**iwJ*k, 

PRINT  »3,  -  8THRTxCENTRUM/HJ'RNE- 
PRINT  *3,  USING  "**•"  iUX 

REM  ********************************************** 

REM  *  * 

REM  *  slftter  øammelt  Punkt  o9  Plotter  et  nxt  * 

REM  *  * 

REM  ********************************************** 

IF  xJC-xlk.  RND  wX-**X  THEN  GOTO  1330 
IF  TEST  CxX.xJO-Ø  THEN  1*-0  i«l  ELSE  ia-1  •  i-0 
PLOT  xaX.xaX, ibREM  slftter  Plot 
PLOT  xX,«fc,l'REM  Plotter 
ib*ia 

REM  *  * 


USING  ,,**iM,lx*4, 
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2110  REM  *  hoPP#r  r#tur  for  ny  Ink#«  * 

2120  REM  *  * 

2i3ø  rem 

2140  x«7*x7'  v47«y7 
2130  GOTO  1330 
2160  EMO 

2170  REM  ************* 

2180  REM  *  * 

2190  REM  *  1 inl#  * 

2200  REM  t  * 

2210  REM  ttttttttttttt 
2220  PRINT  44,  "LINIE” 

2230  FOR  t-1  TO  300'  MEXT 

2240  MOVE  1x7, 1*7  DRAU  x7,«7.1  ■  dx7-lx7  •  d«7-U7  '  Ix7-x7  U7-y7 
2230  PRINT  #4 
2260  *l#t-tini# 

2270  RETURN 

2280  REM  ttttttttttttttttt 
2290  REM  *  * 

2300  REM  *  Clrk#l  * 

2310  REM  S  * 

2320  REM  ***************** 

2330  PRINT  #4 ,  "CIRKEL” 

2340  radiu*7-SQR<<RBS< Ix7-x7 >*2 )♦< RB6< Iy7-y7)*2>> 

2330  » !  -1 

2360  IF  radiu47>100  THEN  »'-0.5 
2370  IF  radlu*7<23  THEN  »'-2 
2380  FOR  9 1 ■ 1  TO  360  STEP  »’ 

2390  OEG 

2400  PLOT  lx7«-radiu»7*C0S<9'  >,  U7+radlu»7*SIN<  9 '  >,  i 
2410  NEXT 
2420  PRINT  #4 
2430  »l#t-clrk#l 

2440  PRINT  43,  "'NSKES  CIRKELEN  UOFYLT  <J/N>" 

2430  IF  INKEY(43)-0  THEN  G0SU8  2300  GOTO  2490 

2460  IF  INKEYC 46 )-0  THEN  2400 

2470  GOTO  2430 

2480  PRINT  #3 

2490  RETURN 

2300  REM  tttttttttttttttttttttttt 
2510  REM  *  * 

2520  REM  *  udfyldt  clrk#t  * 

2330  REM  *  * 

2340  REM  tttttttttttttttttttttttt 

2330  PRINT  #3 

2560  PRINT  *4,  "UOFYLDER" 

2370  LET  »• -0.5  a1 -90. 3 
2580  IF  radiu»7>100  THEN  s  '  -0. 25  4  1  -90.  25 
2390  IF  radlu»7<25  THEN  »'-2  #'-91 
2600  FOR  9 '-90  TO  1  STEP  -» ' 

2610  OEG 

2620  MOVE  lx*^r«diu#7.*C0S<9!  >,  U7+r«di  u»7*SIN<  9 '  > 

2630  DRRW  lx7+radiu»7*C0S<  360-9'  >,  lyV.eradi  u»7*SIN<  360-9'  ).i 
2640  MOVE  lx7«-radiu»7*C0SC90+<a'-9'  >  >,  U7*r  adiu»7*SIN<*  90*«:  *  •  -9 '  >) 

2630  DRRW  lx7+radiu»7*CQS<  360-'  90-K  4  1  -9 1  > )  >.  lyV.^radi  u*7*SIN<  360-<  90*<  a  '  -9 '  )  )  >,  l 

2660  NEXT 

2670  »Ut-tom 

2680  PRINT  #4 

2690  RETURN 

2700  REM  ttttttittttttttt 
2710  REM  *  * 

2720  REM  *  firkant  * 

2730  REM  *  * 

2740  REM  ttttttittttttttt 
2750  PRINT  #4,  "FIRKANT" 

2760  FOR  t-1  TO  500  NEXT 
2770  MOVE  1x7..  U7 

278ø  DRRW  «7,ly7,i  DRRW  x7,y7,i  DRRW  1x7, *7, i  DRRW  1x7,  U7,  i 
279ø  sUt-firkant 
2800  PRINT  44 

2810  PRINT  #5.  "  NSKES  FIRKANTEN  UOFYLT  < J/N>" 

2820  IF  INKEY<45>*0  THEN  G0SU6  2870  GOTO  2860 

2830  IF  INKEY(46)-0  THEN  2830 

2840  GOTO  2820 

2830  PRINT  #5 

2860  RETURN 

287ø  REM  tttttttttttttttttttttttt 
2880  REM  t  t 

289ø  REM  *  udfyldt  firkant  t 
2900  REM  *  t 

2910  REM  tttttttttttttttttttttttt 
2920  PRINT  45 
2930  PRINT  44,  "UDFYLDER" 

2940  IF  l *7 >x*.  THEN  st7— 1  ELSE  »t7*l 
2950  FOR  ud". a  1  TO  *7  STEP  ft"''. 

2960  MOVE  ud7ly7 
2C+19.V 
2980  NEXT 
2990  s  Ut-tom 
Søøø  PRINT  44 
3010  RETURN 

3028  REM  ttttttttttttttttttttttttttttttttttt 
3030  REM  t  t 

3040  REM  I  ud»krivnin9  tf  sklfrmbi  l  Ud®  t 
3050  REM  t  * 

3ø6ø  REM  *********************************** 

3070  PRINT  45.  "UDKk RIVNING  AF  SIUPMBILLEDF  "  FOR  T»1  TO  Mø«  NEXT 

3080  PRINT43  PRINT  45 

3ø9ø  SAVE  " 'bi  lied#", b. -16384. 16383 

31øø  RETURN 

3110  REM  *********************************** 

3120  REM  t  t 

313ø  REM  t  indlffsmn«  a9  skErrobilUd®  å 
3140  REM  i  t 

3150  REM  ttttttttttttttttttttittttttttttttti 

3160  PRINT  43,  "INDLOSNING  AF  SKR*PMBILLEDE"  FOR  T-1  TO  MøO  NEXT 
3170  PRINT43  PRINT  45 
3180  LOAD  "'bi  l  Ud®" 

319ø  RETURN 


3200  REM  *************** t 

3210  REM  *  t 

3220  REM  *  »Utmn9  t 

3230  REM  *  t 

3240  REM  tttttttttttttttt 

3250  IF  «  Ut-tom  THEN  G0SU8  3300  REM  ir,9#n  ti 09  af 

3260  IF  sUt-linie  THEN  GOSUB  3390  REM  »U*r.in9  tf  time 

3270  IF  sUt=cirk*l  THEN  GOSUB  3500  REM  sletmn«  at  cirkel 

3280  IF  sUt-firkant  THEN  G0SU8  364ø  REM  *Utnin9  ff  firkant 

3290  RETURN 

3300  REM  **************************** 

3310  REM  *  t 

3320  REM  *  i  n9#n  tin9  tf  sUtt#  * 

3338  REM  *  * 

3340  REM  tttttttttttttttttttttttt**** 

3330  PRINT  45.  "DETTE  KAN  IKKE  SLETTES" 

3360  FOR  t-1  TO  løøø  NEXT 
3370  PRINT  45 
3380  RETURN 

3390  REM  ************************** 

3400  REM  *  * 

3410  REM  *  »l#tnin9  af  lini#  * 

3420  REM  *  * 

3430  REM  ************************** 

3440  PRINT  44,  "SLETTER" 

3450  MOVE  dx7,dy7‘  OPAW  v7,*7»i tr  Ix7-dx7  Iy7»dy7 
3460  FOR  t-1  TO  300  NEXT 
3470  PRINT  44 
3480  *l#t-to« 

3490  RETURN 

3300  REM  ************************ 

3310  REM  *  * 

3520  REM  *  »l#tnin9  tf  cirk#l  * 

3330  REM  *  * 

3540  REM  ************************ 

3330  PRINT  44,  "SLETTER" 

3360  IF  radiu»7>100  THEN  »'-0.5  ELSE  »'-1 
3570  FOR  9 1 - 1  TO  360  STEP  »' 

3380  DEG 

3390  PLOT  tx7+radiu»7*C0S<9'  >,  ly7®radiu»7*SIN<' 9'  >,  i« 

3600  NEXT 
3610  PRINT  44 
3620  »Ut-tom 
3630  RETURN 

3640  REM  ************************* 

3630  REM  *  * 

3660  REM  *  »Utni  n9  tf  firkant  * 

3670  REM  *  * 

3680  REM  ************************* 

3690  PRINT  44,  "9LETTER" 

3700  FOR  t-1  TO  300  NEXT 
3710  MOVE  1x7, l«7 

3720  ORRW  x7, l«7,0  DRRW  x7,«7.0'  DRAW  1x7, »7,0  ORAU  1x7, 1*7, i» 

3730  PRINT  44 
3740  »Ut-tom 
3750  RETURN 

3760  REM  *t*f*ttttt*t*tt**t 
3770  REM  *  * 

3780  REM  *  m#nu/for»ld#  * 

3790  REM  *  * 

3800  REM  ****************** 

3810  CLS 

3820  LOCATE  20,3 

3830  PRINT  "MENU  FOR  TEGNEPROGRAM” 

3840  LOCATE  20,4 

3830  PRINT  " - " 

3860  PRINT  41,  "'S'  -  ST ART/CENTRUM/H J'RNE" 

3870  PRINT  41 

3880  PRINT  41,  "'L'  -  LINIE" 

3890  PRINT  41 

3900  PRINT  41,  "'C'  ■  CIRKEL" 

3910  PRINT  41 

3920  PRINT  41,  "'8'  -  FIRKANT  <BOX>” 

3930  PRINT  41 

3940  PRINT  41,  "'O'  -  SLETTE  < DELETE  >" 

3950  PRINT  41 

3960  PRINT  41,  mtf  ■  FORFRA" 

3970  PRINT  41 

3980  PRINT  41,  "'H'  -  HJ»LP" 

3990  PRINT  42,  "'U'  -  UOSKRIVNING  TIL  84ND" 

4øøø  PRINT  42 

4010  PRINT  42,  m'V  ■  INDLOSNING  FRA  BqNO” 

4020  PRINT  42 

4030  PRINT  42,  " , CHR4(  240 >; " '  -  OP" 

4040  PRINT  42 

4030  PRINT  42,  "  CHR4<241  -  NED" 

4060  PRINT  42 

4ø7ø  PRINT  42,  ",CHR9<242>i =  VENSTEP" 

4080  PPI NT  42 

4090  PRINT  42,  ",CHR4*'  243);  "  '  =  H '  JRE " 

4100  PRINT  42 

4110  PRINT  42,  "'SHIFT'  ♦  PIL  *  HURTIG" 

4120  LOCATE  5,20 

4130  PRINT  "NB1  CIRKEL  «.  FIRKANT  TEGNES  INVEPSEPFT'  I  FORHOLD  TIL  HVOP  CUPSOREN 
ST-i" 

4140  LOCATE  30. 22 

4150  PRINT  CHR*< 164 '. "CARSTEN  OLSEN" 

4160  LOCATE  43.1,1 

4170  PRINT  43, "TRYK  'ENTER'  FOR  AF  STARTE  PROGRAMMET" 

4180  IF  INKEYM8>*ø  THEN  RETURN  ELSE  GOTO  4168 
4190  REM  tt********* 

42øø  REM  *  * 

4210  REM  *  h.ÉtP  * 

4220  REM  *  * 

4230  REM  ttttitittt t 

4240  PRINT  45,  "'S'  »  START/CENTRUM/ H. I  RNE" 

4250  FOR  t-1  TO  løøø  NEXT 
4260  PRINT  45.  "'L‘  -  LINIE" 

4270  FOR  t-1  TO  1000  NEXT 
4280  PRINT  45,  "'C'  -  CIRKEL" 

4290  FOR  t-1  TO  løøø  NEXT 

4300  PRINT  #5.  "'8'  «  FIPKANT  'BOX>" 

4310  FOR  t-1  TO  løøø  NEXT 

4320  PRINT  45.  "'D'  -  SLETTE  < DELETE  *" 

4330  FOR  t-l  TO  løøø  NEXT 
4340  PRINT  45.  "'F  =  FORFRA" 

4350  FOR  t-1  TO  1000  NEXT 
4360  PRINT  45.  ’"H'  =  HJ*LR" 

4370  FOR  *=1  TO  1000  NEXT 

4380  PRINT  45.  "'U'  «  UDSKRIVNING  TIL  BÅND" 

4390  FOR  t-1  TO  løøø  NEXT 

440ø  PRINT  #5,  "'I'  =  INDLOSNING  FRA  B-lND” 

4410  FOR  t-1  TO  1000  NEXT 

4420  PRINT  #5,  . .  C HRf*'  240  > ;  "  *  OP" 

4430  FOR  t-1  TO  løøø  NEXT 

4440  PRINT  45.  " 1 " , C KR*'  241  >."  =  MFD" 

4450  FOR  t-1  TO  løøø  NEXT 

446ø  PRINT  #5,  “ ’ “ i CHRtK 242 > . " ’  =  VENSTEP" 

4470  FOR  t-1  TO  løøø  NEXT 

4480  PRINT  45.  ” '  "  .  CHF9*  243  •  •  "  '  -  H  «PE" 

4490  FOR  T»i  TO  løøø  NEXT 

4500  PRINT  45  "SHIFT  ♦  &IL  =  mcpTTC" 

4510  FOR  t-1  TO  løøø  i»e::t 
4520  PRINT  45 
4530  RETURN 
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Regnelærer 


■  Regnelærer  til  Commodore 
64  er  et  program,  som  kan 
hjælpe  små  skolebørn  med 
matematikken. 

Programmet  giver  nogle  op¬ 
gaver,  som  man  skal  løse. 
Opgaverne  bliver  sværere,  jo 
tiere  man  tår  løst. 
Opgaverne  omtatter  de  fire 
regnearter.  Programmet  er  el¬ 
lers  selvforklarende.  □ 

Michael  Lundholm 


T+2‘ 


TsC 


3  PRINT'J* 

6  P0KE33S80 ,0 s P0KE3328 1 ,0«  P0KE33272 ,23 

7  G0SUB300 

8  FORA  -0T02000 1  NCXT 

9  P0KE53272 ,21 « GOSUB 1300 

10  P0KE34276, 32 »PRINT'J* 

12  REM* »VAELGEPROGRAM* t 

13  PR  '  «PRINT'*| 

20  PRIKT* SMMMIMil  1  '  1 

30  PRlKT'SMSMMa  Bl  »PLUSB  I  »-MINUSB  I 

31  PRINT*!——— «  l  I 

32  PR  INT’]— Hi - 1  I - 

33  PRINT’MaaflMfil  *3 -GANGE«  »S-DIVIDERB  1 

34  PRINT'*— i _ i  i 

40  Ihf>UT*SflaaaflB^VPD  VIL  DU  OVES  I '»AS 
44  PRIKT'SMM^VOR  MANGE  OMGANGE  VIL  Dl 
43  I^UT'SflflM*  IYIP0KE34296, 13 


40  IWJT*aflaaaflfl»4VAD  VIL  DU  OVES  l*;ASl  IFAS-*3*THEN»RINT*J*»END 
44  PRINT-SMM^VOR  MANGE  OMGANGE  VIL  DU  HAVE* 

43  IhPUT'Sflflflf*  »YIP0KE34296, 13 
46  REM* »PLUS - ,  M I NUS -  OG  GANGEPROGRAM** 

48  P-23 

49  PRINT'J* 

30  A-INT<R«K  1  )*P)*1  «B-INT<  RND<  1)*P)*I 

33  PR  I  NT 'BSSMaar  01  NT  i  'S*  OMGANGE« *R» IFR-YAMDS «Y*3THENGO TO  1000 
60  IFAS-’l  ‘THETPRINT'«—— — — — afl'tV**B«C-AtBiRES-*  +  * 

70  IFAS>*2  'THEhFR  INT'BMMMBHMMMMMMMBM'A  *  -  *8 »C-A-B«RES- *- * 

80  IFAI*‘3'THEM,Rirfr'MMMHHMMIIIIIIMItt,»>BiC>A*BiREI>,r 

82  IFAS- *4 "THENG0T02O0 

83  Tl<-*000000a:  Ih#>UT*SMMMaBBBaaai*;0 

86  IFTIS>*000010*THENPR  I N'  *  JHMfl— I3U  ER  FOR  LANGSOM* 

90  I  FO  -C  THEKPR  I  NT  *  — f-  I G  T I  GT  *  1 Z  -63 1 0  >300 1 G0SUB900 1 S-S+3 

100  IFD<  >CTH£hPRINT*]BMmSMFORKERT  DET  ER*CiZ-33iO«  1000«G0SUB900 
103  FORE -0T0 1000  »hCXT 

1 10  P-P*23«R-RM  i  IFR-YAM)S<  Y*3THENG0TD330 
120  GOT049 

200  REM»»0 IV  IS I0NSPR0GRAMS* 

201  RES-*/* 

203  P0KE34296 ,0 IPR  INT*  J* 

210  PRINT ‘HVILKEN  TABEL  VIL  DE  HAVE?* I IN»UTG i P- 10 

219  PRINT'J* 

220  H-G*  1NT(  <  Rfd<  1  )  1 10 )  tP  > «  I -G 

221  PRINT*aMMMBF0INTi  *  S  "OMGANGE  «  *Ri  IFR-YAM)S-Y*3THENG0T0 1000 
223  TIS- *000000  *  i IFP > 100THENTIS- *000000 * 

227  T IS- *000000 *»  IFPMOOTHENT IS- *000000* 

230  PRiNT'SHSHHMMMMMHSaflflf’H*/*! 

232  irfUT'IHHSSSSHI,>JiK-H/l 

233  IFTIS>*000010'THEN’RINT']flaaHSflaaaaflOU  ER  FOR  LANGSOM* 

240  lFJ-KTHEM>RlNT*aMMMMMBV?IGT!GT*iZ-63iO-300lGOSUB900iS-S*3 
230  IFJ<  >KTHEN»RINT*MaaHSaaHMFORKERT  DET  ER  *KiZ-33iQ-  1 000 « GOSUB900 
260  FORL -OTO  1 000 1 1CXT i  R -R ♦  1 1 P -P ♦  1 0 1  IFR-YAM)S<  Y*3THENG0T0330 
270  G0T0219 


330  REM  **ST0P-  ELLER  FORTSAETPROGRAM** 

360  PRINT'J* 

370  IFR-YAN3S-R*3THEN>RINT*aananMSaf,CGET  FORKCMT*  »S-S+30 
373  IFS<  R*3ArCS  >R*4THENPR  INT  ’ — BBHJDM'iERK E  T  *  l  S-S«23 
380  IFS<R»4AM}S>R*3THEr^RINT*MMWET  ER  IKKE  FOR  G0DT'iS-S*10 
383  IFS<R»3AN0S>Rs2THEh#>RINT*SBflBflSMS3V  DIG  fEGET  fCRE*  IG0T040I 
390  IFS<R»2THEN»RINT-lia*DU  SKAL  FOLGE  f-CRE  f-CO  I  SKOLEN*  i  G0T040 1 

399  REM  STOP-  ELLER  FtlRTSAE  TPROGRAM 

400  PRINT'MMMHKD  BONUS  FIK  DU  'S’POINT*  IG0T0403 

401  PRINT'SHSMSMSMMDU  FIK  'S'POINT* 

403  P0KE34276 , 32 « PR  I  NT  *  I L  DU  PROVE  IGEN?(J/N)* 

403  GETSSi IFSS-* *THEN403i 

406  IFSS<  >*J*THEN»RINT*J*lEtC 

407  IFSS-*J*THEN>RINr'SMMMaMaMMBETA0IG'RES'?'iR-0iS-0 
410  GETTESl  IFTES- *  *THEN4  10 

413  IFTES-  *N*THENGOTO  10 

420  IFTES- * J 'THENAS-ASi PR INT*  J*  »S-0  »R-0  »G0T044 
499  REM** INDLEDNING*« 

300  NVS-’l  GRITTEN  BY  \ICHAEL  LUNDHOLM  S-*LCULATIONg* 

303  PRINT*SMMSMT 

310  FORA  -  I TOLENC  NVS ) » PR  INTMIOS<  NVS,A, 1  >1  lF0RB-0T030»NEXTlhCXT 
320  FORDF ■ 1 T0200 « P0KE33280 , 0 « P0KE33280 , 7 1  hCXTDF 
330  RETURN 

900  REM* »LYDPROGRAM** 

910  N-34272  »P0KEN»24 , 13 » P0KEN*3 ,0  »POKEN+6 , 230  « POKEN* 1 , 18 

920  P0KEN,0 « P0KEN»4 ,Z  « FORT-OTOG « fCXTi P0KEN*4 , 16 » RETURN 

1000  Q- 1 1 C -34  i A-90 « F0RL-54272T034296  »POKEL ,0  »NEXT 

1003  P0KE34296, 13»P0KE34277 ,64 

1010  P0KE34278 , 89 « P0KE34273 ,Q « P0KE34272 , Q 

1013  P0KE34276, 1 7 1 P0KE34276 , 17«Q-Q»3« IFO >99THEN0-3 

1020  A-A- 1 IC-C- I l IFC< -OTHENQ*Q*A» IFO< 1 THEKP0KE34296 ,0«G0T0330 

1030  GOTO  1 003 

1499  REM  S »FORKLAR  I NG S* 

1300  PRINT'JSSl' 

1303  PR  I  NT 'DETTE  RE  GhC  PROGRAM  FOREGAAR  SAALEDES  AT  FORST  KOffCR  DER  EN  fENU.'J 
1310  PRINT'DEREFTER  VAELGER  MAN  DEN  REGhCART  MAN  VIL  HAVE.  S AA  VIL  */ 

1313  PR  INT 'COMPUTEREN  SPORGE *  I 

1520  PRINT*  HVOR  MANGE  STYKKER  DU  VIL  HAVE.  NAAR  DU  HAR  SVARET  PAA  *1 
1330  PR INT*DET  STILLER  COMPUTEREN  NOGLE  REGNE-  STYKKER,  SOM  BLIVER  *1 
1333  PR INT 'VANSKELIGERE  •# 

1340  PRINT*  EFTER -HAANOEN.  DEM  BESVARER  DU  SAA ,  OG  HVIS  OUBESVARER  OEM  ALLE  *1 
1330  PR INT 'RIGTIGT  VIL  DER  KONfE  NOGLE  LYDE  FRA  COMPUTEREN.* 

1360  PR  I  NT*  SI*  i 

1362  PRINTSPCC9)*CjrRYK  EN  TAST* 

1363  F0RDG«1T0200»NEXT 

1363  PRlNTSPC<9>*OiTRYK  EN  TASTS* 

1367  F OROG - 1 T0200 « NEXT 
1370  GETSVS« IFSVS- * ‘THEN1362 
1 380  I FSVS< >  *  *  THEMPE TURN 


Race 


10  DIMRE*<4),RE(41  F0RN=ØT04  RE*<N)*"V1C  2ø"+STR* (N+l  >  RE(Nl»løø : NEXT  G0T040000 
20  KM»ø  fUOl  0  HVX-4 : SBK* 1 0 : SPZ-4  P0KE3687S ,15*2  P0KE371 3? , ø : P0KE808 , 1 00  P0KE368 
65/  60 

30  SP*0  PØKE36879/ 8‘  F0RN*1T023 :  PRINTTRB<SPX)"a31  E*ttrTRB<SPX+8BX)"  SHES  NEXT 
40  PRINTTRB<SPX)  "1831  ■sHB"TRB<SPX+SBX)  "  4BBS  r , 

50  TX*INT<RND<ØD*2> 

60  I FTX* 1 RNDSPX>ØTHENSPXsSPX- 1 
70  I FTX*ØRNDSPX+SBX<I  1 8THENSPX*SPX+ 1 

30  P0KE37 1 54 , 0  B- a  PEEK  <  37 1 37  >  RND60 > OR < PEEK < 371 52  > RND 1 28 ) >  P0KE37 1 54 , 255 
90  XX*  <  C  BRND 1 28  )  *0 )  -  <  <  BRND 1 6 )  *0  )  •  VX* <  <  BRND8  ;>  *0  d  -  <  <  BRND4 ,» -0  > 
løø  P0KE768ø+RXX>22*<RVX-lD/32 
110  1 FRXX> 1 RNDXX« 1 THENflXX«flXX- 1 
120  I FRVX> 1 RNDYX* 1 THENflVX*flVX- 1 
1 3ø  I FRXXC21 RNDXX*- 1 THENRXX-RXX+ 1 
1 4ø  I FRVXC20RNDVX*- 1 THENRVX*flYX+ 1 
1 42  P2X-PEEK  <  7680+RXX+22HRVX ) 

15ø  IFP2X*32THENP0KE7630+RXX+22#RYX/ 46 
151  I FP2XO32THENP0KE7680+RXX-F22SRYX  /  42 
160  KH*KM+1 

1 7ø  I FKM/200* INT ( KM/200 >RNDSBX>6THENSBX»SBX- 1 

175  I FKIV  1 000* I NT  <  KM/ 1 000 ) RNDP2X*32THENRXX* 1 0  RVX*4 : SBX* 1 ø  SPX*4  SP*ø  00T030 
18ø  F0RN-1T0SP  NEXT 
190  PRINT 


200  IFS*øRNDRVX*lTHENPRINT,,S,,STR$(KM>"B"  S*1 

210  OETRf  IFRS*" "THEN300 

220  IFRSC ( fl» ) - 1 33RNDKNK 1 ØØØTHENSP-200 

230  I FRSC C  R« ) *  1 34RNDKM<2000THENSF* 1 00 

240  I FRSC < R« > ■ 1 35RNDKM<3000THENSP-50 

250  I FRSC  C  RS  D  * 1 36THENSP*0 

260  I FRSC ( RS  D  »92THENUR I T37 137/32/32 

300  IFRVX>2THENS-0 

990  I FP2XO 1 02RNDP2X097RNDP2X0225THEN40 

991  F0RN-60T01STEP-1  P0KE36865/60-INKN/10) 

P0KE36865 / 60+ 1 NT  < N/ 1 ø ) : NEXT  P0KE3686  5  /  38 

1 øøø  P0KE36879 / 27  P0KE36865 , 38 
lølø  F0RH-ØT04 

1020  I FKM>RVX>RE<M) THEN 10000 
1030  NEXT 

1040  PRINT'THrø  HI  OH  SCORE  JOMT 

1050  F0RN-ØT04 

1060  PRINTTRBCØ)N+-1 ,  TRB(3^RES<N>  :  PRINTTRB<8)RECN>  "KM"  PRINT 
lø7ø  NEXT 

1080  PRINT-DU  KØRTE "KfHRYX"KIT' 

9960  F0RN-1T05000 
997ø  NEXTN 

9980  OETRf  IFRS*MS"THEN30000 
9990  00T020 

9999  END 

10000  F0RN-4T0M+1STEP-1 
10010  PEf  <  N ) *RE$  <  N- 1 ) 

10020  RE<N)*RE<N-1) 

10030  NEXT 

10040  RES ( M ) * " RNONVM " 


40  Soft  Special 


Talsys 


■  Talsys  konverterer  deci-  !■ 

maltal  til  hex,  hex  til  decimal  COMMO 
samt  decimal  til  binær  og  bi-  R 

nær  til  decimal. 

Programmet  er  selvlorklaren-  ^  — 

de.  Dog  skal  det  bemærkes  i  1 1  — — — ( 

at  det  returnerer  til  menu.  når  ffWTfff Q  qTÉ  V 

der  indtastes  (RETURN)  uden  MuvUUyiK)  UV 
talværdi. □  --  —  1  \ — 

Kai  Bentzen  ^^^===sss* 

5  REM  TALSYSTEMER 
10  PRINTCHR*(147) 

20  Dl M  A*(15) 

30  GOSUB  5000 
40  REM 

50  PRINTTAB( 10) S "KONVERTERING  AF  TAL" 

60  PRINTTAB(IO) i" - “ 

70  PR  1  NT  :  PRINT :  PRINTTAB<  13)  i  ”  1  HEX.  TIL  DEC." 

SO  PRINT : PRINTTAB( 13) >"2  DEC.  TIL  HEX." 

90  PRINT : PRI NTTAB( 13) ! ”3  BINAER  TIL  DEC." 

100  PRINT:PRINTTAB(13);"4  DEC.  TIL  BINAER" 

110  PRINT : PRI NTTAB< 13) S " 5  SLUT" 

120  PRINT : PRINT: PRINTTABt 13) "ANGIV  RUT  I MENR :  "? 

125  GET  B*:IF  B*=""  THEN  125 

126  B=VAL(B*) 

130  IF  B) 5  THEN  PRINTCHR*! 147) :  GOTO  30 
140  PRINTCHR*! 19) :F0R  1=1  TO  B*2+2 
150  PRINT 
160  NEXT  I 

170  PRINTTAB (10) S "=> " 

ISO  FOR  L=1  TO  500: NEXT  L 

190  ON  B  GOTO  200.500.800,1200,1000 

200  PRINTCHR*! 147) :PRINTTABC10) "HEXADECIMAL  -  DECIMAL" 

210  PRINTTAB (10)“ - " 

220  PRINT : PRINTTAB( 12) S : INPUT  H* 

225  IF  H*=""  THEN  PRI NTCHR*< 147) : G0T050 
230  M=1 :  X=0:  G=16->-3 
240  L=LEN(H*) :  FOR  I=5-L  TO  4 
260  T*=MI D*( H*.  M,  1 ) 

270  IF  ASC(T*)>47  AND  ASCCT*)  <58  THEN  T< I ) =VAL (Tt) *G:  GOTO  290 

280  T(I)=(ASC(T*)-55)*G 

290  TA=TA+T ( I ) :  G=G/16 

300  M=M+i 

310  NEXT  I 

315  TA*=STR*(TA) :LT=LEN(TA*) 

320  PRI NTTAB( 28-LT) ; : PRI NTCHR*< 145) ; TA 
325  TA=0 

330  H*="":GOTO  220 
500  PRINTCHRS<147> 

510  PRINTTAB( 10) "DECIMAL  -  HEXADECIMAL" 

520  PRINTTAB(IO)" - “ 

530  PRINT : PRINTTAB (9) i : I  NPUT  H* 

540  IF  VAL(H*)) 65535  THEN  500 

550  IF  VAL(H*)<0  THEN  H*=STR* (VAL <H») +65535) 

560  IF  H*="“  THEN  PRINTCHR* ( 147) : GOTO  50 
570  D*=H*:G=16*3 
580  FOR  1=1  TO  4 

590  C= I  NT ( VAL  <  D* ) / G ) : D*=ST  R*  <  VAL  <  D* ) -C*G ) 


i  DECiMAL-- 


595  IF  C=0  THEN  A*(C)="0"  /  A  ’r  / 

600  TA*=TA*+A*(C) 

610  NEXT  I 

620  PRINTCHR*!  145) ; : PRINTTAB(28-LEN(TA*) ) ;TA* 

630  TA*= . . . GOTO  530 

300  PRINTCHR*( 147) 

810  PRINTTAB(IO) "BINAER  -  DECIMAL" 

820  PRINTTAB(IO)" - " 

S30  PRINT: PRI NTTAB< 8) ;: INPUT  H* 

840  IF  H*="  "  THEN  PRINTCHR*! 147) : GOTO  50 
850  IF  LEN(H*)>8  THEN  PRINTCHR*! 147) :GOTO  800 
860  L=LEN!H*X  G=1 
870  REM 

890  FOR  I=L  TO  1  STEP  -1 
900  T*=MID*!H*.  I,  1) 

910  T(I)=VAL(T*)*G 

920  TA=T(I)+TA 

930  G=G*2:NEXT  I 

940  TA*=STR*!TA> :TL=LEN(TA*) 

950  PRINTCHR* (145);: PRI NTTAB! 2B-TL) TA* 

960  . . .  830 

970  STOP 

1000  PRINTCHR* (147) 

1010  END 

1200  PRI NTCHR*( 147) : PRI NTTAB( 10) "DECIMAL  -  BINAER" 

1210  PRINTTAB(IO)" - " 

1220  PRINT: PRINTTAB<9) ;: INPUT  H* 

1230  IF  H*="“  THEN  PRINTCHR*< 147) : GOTO  50 

1240  IFVAL (  H* ) >  255  THEN  PRI NTCHR*( 147) : GOTO  1200 

1250  G=2*7 

1260  FOR  1=1  TO  8 

1270  T(I)=INT(  VAL(Ht) /G) 

1280  H*=STR*<VAL<H*)-T(I>*G) 

1285  A*="l" 

1290  IF  T( I )=0  THEN  A*="0" 

1300  TA*=TA*+A* 

1310  G=G/2 
1320  NEXT  I 

1330  PRINTCHR*( 145) ; : PRI NTTAB (28-LEN! TA*) )TA* 

1340  . . . . GOTO  1220 

1350  STOP 

5000  FOR  1=1  TO  15 
5010  READ  A*( I ) 

5020  NEXT  I 

5030  DATA  1, 2,  3,  4,  5,  6,  7,  8,  9,  A,  B,  C,  D,  E,  F 
5040  RETURN 


Sott  Special  41 


Mælkevej 


■  Programmet  »Mælke vej« 
demonstrerer  på  en  overbe¬ 
visende  måde,  hvor  flot  Com- 
modore  64  kan  tegne  på  en 
skærm. 

Når  programmet  er  lærdig, 
står  du  tilbage  med  et  impo¬ 
nerende  graflkbillede  al  en 
mælkevej  med  over  2000 
stjerner.  Da  programmet  ta¬ 
ger  lidt  tid  at  køre,  er  det  vel¬ 


egnet  til  l.eks.  »demo«. 
Programmet  tegner  en  eller  to 
spiralarme  i  en  al  universets 
galakser.  Centerstjemen  mar¬ 
keres  i  hvidt,  mens  planeter¬ 
ne  udenom  larves  i  blåt  på 
en  sort  baggrund. 

»Mælke vej«  rummer  en  del 
REM-sætninger,  så  det  lunge¬ 
rer  selvinstruerende.  □ 

Christian  Nielsen 


løø  REM  *#*MAEl.KEVEJ*** 

110 

120  REM  PAA  C0MM0D0RE  64 

130  PRINT  CHRS<147>  REM  SKRERMEN  SLETTES 

140  PRINT  V*LT  OM  DRTR  1984" 

143  PRINT: I NPUT "HVOR  URNOE  SPIRRLRRME  (1  ELLER  2)";Z1 

130  POKE  33280 / 0  REM  RRMMEN  FRRVES  SORT 

160  PRINT  PRINT  PRINT  "HAV  LIDT  TRRLM0DI0HED" 

170  POKE  36/32:  rem  BASIC  BESKYTTES  MED  GRRFIK  FOER  INDSKRIVNING 

180  QOSUB  1000  REM  GRAFIKKEN  TAENDES 

190 

200  FOR  Z-l  TO  Z1 

210  :  IF  Z-l  THEN  W-0  GOTO  230 

220  :  IF  Z-2  THEN  U-ir 

230  FOR  A-0  TO  2  STEP  .01 

240  REM  «  KOORDINATER  FRSTLAEGOES  FOR  BESTEMT  PUNKT  I  SPIRALEN  * 

230  R-EXP<A)T2 

260  X»C08(M)828ftM60  V-SIN<W)*RX2+100*C0SCW)»R  REM  CENTRERES 

270  :  Xl-X  :  Vl-V  00SUB  2000  REM  HOVEDSTJERNEN  TEGNES 

300  REM  DE  OMO I VENDE  8T JERNER  INDTEQNES 

301  REM*»«***««i»MM«*«f*»****«M»9**» 

310  IF  A<  1 . 73  THEN  I0-A*2-M  =  GOTO  340 

320  :  IF  AC1.83  THEN  10-2  GOTO  340 

330  10-1 

340  1  FOR  1-0  TO  10 

330  DX-RNDC 1  )*3  DV-RND<1)*3 

360  D1-RND<1>  :  D2-RNDC 1 ) 

370  :  IF  Dl<. 3  THEN  DX— DX 
380  IF  D2<.3  THEN  DV— DY 

398  Xl-X+DX  Vl-V^DV  OOSUB  2000  REM  OEVRIGE  STJERNER  INDTEGNES 
400  NEXT  I 

410  U1-RND( 1 )/3  ■  U-U+Ul 
420  :  NEXT  A 

439  REM**«*M**f*»M»MfM 

440  REM8ST JERNER  TE0NE8  SOM  BAOGRUND  * 

443  REM*n»»*»**|H|*»*M»*«*****»**««*««** 

430  FOR  S-l  TO  230 

460  X-RNDC 1 )*320  Y-RND<l)f200  REM  TILFAELDIOE  PLADSER  BESTEMMES 
480  Xl-X  Vl-V  :  OOSUB  2000  REM  STJERNER  TEGNES 
490  NEXT  S 

493  _ _ _ 

494  REM  M*«*«*««***M««***M*«**»*««*«  ■ 

493  REM  VENTER  PAA  TAST TRYK 

496  REM  »•«•«««•«••••*»«••••*•*•*•««***  COMMO  I 

300  QET  Qf  :  IF  QS-""  THEN  300  DORE  H 

320  rIm  GRAFIKkSI^JDKOBLES************* 

330  REM  *M**M»*»********M«*»*f**M**  ^ 

340  POKE  33263 /PEEK<  33263)  AND  223  _ _ 

330  POKE  33272/ PEEK C 33272) AND  247  . „ .  ^ 

560  fi  1 

370  END  S  1 

999  REM  ******»«**M***M»M*»***»**M*  - . —  _  ■  _1 

1000  REM  GRAF  I KHUKOMMELSEN  SLETTES 

1001  REM4*M**4*4i***«*t**»*4*4*iMi«**M* 

•005  FOR  1*8192  T016191  POKE  I/Ø  NEXT 
1010  REn»«**8**M*«****«*«*»«*»**MM** 

1020  REM  BAGGRUNDSFARVEN  BLIVER  SORT,  STJERNERNE  HVIDE 

1 030  REM******************* ***»»* 

lø4ø  FOR  1*1024  TO  2023  POKE  1/16  NEXT 

lø3ø  POKE  33272 /PEEK <33272)  OR  8  REM  GRAFIKKEN  STARTER  FRA  ADRESSE  3192 

lø6ø  POKE  53263 /PEEK <33263)  OR  32  REM  HOEJOPLQESNING  STARTER 

1070 

1030  RETURN 
lø?ø 

2000  REM4*4«r*******f ****************** 

2ølø  REM  SÅET  PRIK 

2ø2ø  REM  INPUT  X-  OG  Y-POSITION  <X1,V1) 

2ø3ø  REM  OUTPUT 

2040  REM******************************* 

2ø6ø  X1*INT(X1)  V*INT<Yl) 

2070  BV=3192+INT< Vl/8)*32ø+84INT <Xl/8>+< VI  AND  7) 

2030  POKE  BY,  PEEK  < BY)  OP  <2T<7-<X1AND  7>>>  REM  SÅET  PR  1 1« 

2090  RETURN 
2090  RETUKN 


■  Du  skal  i  dette  lille  program  toppen.  Hvis  du  ikke  gør  det 
styre  dig  vej  igennem  den  in-  hurtigt  nok,  er  du  tærdig. 
tergalaktiske  rumvej  i  syste-  Styr  med  tasterne  Q  tor  op,  A 
met  Sorion.  Du  skal  finde  hver  tor  ned,  M  til  venstre  og  N  til 
passage  tor  at  avancere  til  højre. □ 


Star 

race 


Nils  Lausten 


1  0*1 

2  P0KE33280/ 0  P0KE33281 , 0  PRINT 'TT*  P0KE630/ 253 

3  INPUT  "ENTER  LEVEL  <1-10>";T 

iø  for  i  *  i  to  13  •  pr  i  nt  "  ■  ■ 

2ø  PRINT"«  8" 

30  NEXT I 

31  F0RE=1T0T 

4ø  FOR  I  *  1 024T02023STEP40  P0KEI+  INT<38*RND<0> >*1 / 32 

50  NEXT I : NEXTE 

6ø  IFPEEK<  1 124+P)0102THENQP*1  G0T0100 
70  I FPEEK < 1 024+ 60+P+ 1 ) * 1 02THEN0— 1  GOTO 1 00 
80  I FPEEK < 1024+60+P-l >*102THEN0*+1 
løø  P0KE1960+J/81  P0KE36232+J/  1 

1 05  POKE 1 024+60+P , 32 : P0KE33296+60+P / 0 

106  IF0P*lTHENP=P+4ø  0*0  0P-2 

107  IF0P=2THEN0*1  OP-ø 

108  P-P+0 

1 1  ø  POKE  1 024+60+P  /  36 :  P0KE33296+60+P  /  2 

120  I FP>900THENG0T0 1 000 

121  IFJ<-900THENG0T0l 100 

1 23  POKE 1 960+ J , 32  P0KE36232* J ,  0 
130  GETAf  :  IFAfO”  "THENG0T0400 
200  GO T 060 

40ø  IFA$-"A"ANDPEEK< 1960*J+40)0102THENJ-J+40 : 00T060 
410  IFAS-"Q"ANDPEEK( 1960+J-40)0102THENJ-J-40 : G0T060 
420  IPA$-"N"RNDPEEK<1960*J-1)0102THENJ-J-1  G0T060 
430  IFAS-"MMANDPEEK<1960+J«-1)0102THENJ-J*1  G0T060 
440  I F Af« " A " ORAf - " Q " ORAf - " N " ORAS - "M" THENG0SUB3000 
430  G0T060 

1000  PR I NT " 7ELEND I OT .  DU  TABTE" : G0T02000 
1100  PRINT’TFINT  KLARET.  DU  VANDT"  : GOT 02000 
2000  PRINT  PRINT : PRINT  PRINT : PRINT : PRINT 
2100  PRINT"flFRESS  'Q'  TO  PLAVrT' 

2110  PRINT'kPRESS  'Q'  TO  PLAVH" 

2220  GETAf : I FAS« " Q " THENRUN 
2222  Q0T02JØØ 

3000  V-34296  W-54276 : A-34277 : H-34273  L-34272 
3003  F0RX-10T08STEP-.23 

30 1 0  POKE V  /  X  POKEW  ,17  POKEA  / 1 3 :  POKEH ,  40  POKEL  /  200  ■*  P0KE34278 , 248  NEXT 
3020  POKEW , 0 : POKEA , 0 : RETURN 
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'  ø 


COMMO 

DORE 

64 


■  Her  har  du  så  nok  et  blodigt 
kampspil  til  din  Commodore 
64.  Denne  gang  foregår  det 
hele  i  Afghanistans  hoved¬ 
stad  Kabul,  hvor  du  skal  ned¬ 
kæmpe  nogle  særdeles 
indædt  kæmpende  rebeller. 
Som  pilot  i  en  kamphelikop¬ 
ter  er  din  opgave  at  bombe 


så  mange  højhuse  som  mu¬ 
ligt.  Men  rebellerne  har  væ¬ 
ret  snedige.  De  har  hældt 
mælk  i  din  flybenzin,  så  du 
tager  højde  hele  tiden.  Altså, 
på  den,  hvis  du  vil  nå  at  sam¬ 
le  points,  inden  du  selv  ryger 
ned  på  maven. □ 

Tom  Rasmussen 


3  POKE33281  ,6 » POKE33280 . 6 

lO  PR  INT*  J*  IV  "53248 « F  »34878  »M I  »O 

15  PR  I  NT*  VÆNT  ET  OJEBLIK . 

40  REM  LESER  OATA  TIL  GRAFIK 
50  FOR  I ■ 1 2288T0 1839  I  » RE  AOA  *  POKE I .AtKCXT 
55  FOR  I -12SOOTO 126001 POKE t ,0»NEXT 
60  PR  I  MT  •  ’  1  TY  B0I4ER  ’  * 

62  PR  I  NT '■CONTROL  TAST  »  SPACE  ..«  SMIO  EN  BOKGE  • 

63  PRINT ‘■CONTROL  TÅSTI  F-TAST..«  FLYETS  HASTIGHED* 

64  pr iNT*Mansaaaaxrr»  <*  en  tast  for  at  starte* 

63  POKE 1 98 , 0 ! WA I T 1 98 , 1  *  POKE 1 98 , 1 

66  PR INT'J*  i P0KE34296 , 13  »P0KE34277 ,0 : P0KE34278 ,240 : H-34273 »  T-34276 
70  POKEV  *24  ,28  i  SC  "O  »  BO«  100»LV-  HU.  *2 

100  REM  GRAFIK 

101  FORP  - 1 944T02023  «  POKEP ,3»P0KEP*F ,0:NEXTi0*21 »L-8 

102  I  I " INT< RNO<  1 »•3»*LL!P0KE70l ,0> I  * P0KE782 ,L » SYS63320 i  PR INT'KKK JKK * 

103  FOR  I ■ 1  TO  I  I 

104  POKE 78  I .O«  P0KE782 ,L  »SYS63320  s PR INT*KKKK I  I  *  « 0-0- 1  »NEXT 
103  P0KE781 , 0  *  POKE 782 , L  »  SYS63320 s PR INT  *LOOHFG  * 

106  0-21 «L"L*6 

110  IFL  >28THEN0-0*L-0 » GOTO  114 

111  GOTO  102 

114  P0KE3328 1 ,6 < P0KE33280  ,6 

140  REM  HOVEO  PROGRAM 

130  X ■ 1 024 l O -O  <  RK ■ 1 909 

133  POKEX, 1 »POKEX -F ,4 »GG-< RKO<  1  >  «8  > 

136  POKERK ,0  s  POKERK  «F  ,4 
160  GX-XiGR-RKiP0KEGY,32 

162  IFPEEK< RK ) -2THENRK -  1904  *GG<  Y-0  s  POKEGR , 32  *  POKEGY, 32 : YY-0  »Q -O  *  POKEH ,3 : POKEH ,0 

1 63  IFPEEK<  Y  >  *OTHEWK  -  1904  »GO  «  Y-0 «  POKEGR  ,  32  »  POKEGY  ,  32  «  YY-0  » 0-0 » POKEH  ,3 « POKEH  ,0 
163  X-X»l lRK-RK-40 

170  KEY-PEEK«  197) 

173  IFO-OTHENIFKEY-60THENO- 1 »Y-X*40» YY-I0»PP-0»P-0 

176  IFKEY-2  1  TWENX-X»0. 3 

180  IFQ- 1 THENGOSUBSOO 

190  IFPEEK< X>- 1THENG0T0199 

193  1FPEEK«  XX  >32THENG0TO600 

199  IFX  > 1942 THE NGO T0660 

200  IFX  > 1864 THE NO- 10 

203  IFRK< 1 024 TWENRK* 1904 *GG: POKEGR, 32 

230  POKEGX, 32 »POKEGR, 32 

300  GOTO  133 

499  REM  BOMBE -RUTINE 

300  POKE Y ,2  s  POKEY^F ,8 « GY-Yl Y-Y*40 

303  IFPEEKt  Y  » -OTHErøK • 1 904  *GG s  Y-0  *  POKEGR , 32 : POKEGY , 32  » YY-0*  0-0 : POKEH ,0 
310  IFPEEK<  Y><  >32THENSC -SC  *3 » PP -  1 » P  -P ♦  1 

312  IFPP- 1 THEKFOKEH ,P ; POKET , 33 ! POKET , 129 

313  IFY> 1 943THENY-0 *  0-0  * POKEGY, 3 » FORP- 1  TOS : POKEH, P» POKET,  !29tr>CXT:P0KEH  ,0sPP-0 


320  RETURN 

399  REM  FLY-STYRT  RUTINE 

600  F  ORP  •  I OOTOOSTEP  -  I  »  POKEH  ,  P  *  POKE  T  ,  1 29 » NEXT » POKEH  ,OtX-X-HO-!OOi  POKEGY ,  32 

602  POKEX , 1 t  POKEX  *F  ,  4  *  GX -X 

603  X-X«40»0-0«l 
606  POKEH, O »POKET, 17 

610  IFX  > 1 943THEFM -O »GY-OI POKEGX , 3 « G0T06 19 

612  FORP  *  1 T020  *  (EXT 

613  POKEGX, 32 »POKEGR, 32 » G0T0602 

619  FORP -25TOOSTEP - l» POKEH, P« POKET, 1 29 1 FORPP- 1  TO  10 »POKEH ,P » NEXTs NEXT: POKEH fO 

620  PR  I NT *J*  l  IFSC  >H  ITHEK44  I -SC 

623  IFSC>100THENPRINT**C0RE«00*SC;  ’  [SMi  * 

626  IFSC<  lOOTHENPR  INT '■SCORE:  000  *SC:  'CMV 

627  IFSC  >999THENPR  INT  *^CORE  »0*SC  *  "IIMHI  mu  * 

628  IFSC -OTHEKF*R  INT *KCORE  :  OOOOOO  * 

629  1 FH  I  >  innTHfWBIMT  ■  ■  -crniif  ,nn-u.  •  aug, 

630  IFH  I<  100THENPRIN1  •  I  -SCORE  : OOO  *H  I :  MMI 

631  IFH  I  >999THFK>R1NT  • «— M— —————— -Ri-nar  in»Hi . 

633  IFH  I  -OTMEtPR  IN’  •  J.ww.w ttt T T r T ,  [  -SCORE  »OOOOOO* 

634  PR  I  NT  •  I— — — — — —  '"Mi  OVER  *  :  POKEV  »24  ,2  I  » POKEH  ,0  S  POKET  ,0 

633  PRINT-MC9ma<  STYRTEDE  KED  PAA*JLV»  *RUr«E.  * 

636  PRINT  -  ■BTAT JLT.T1F  R  -  EN  TAST  FOR  AT  FORSAETTE  * 

640  POKE 1 98 , 0 : WA I T 1 98 , I » POKE 1 98 , 0 
633  PRINT* J*»GOT07O 
660  REM  LANDET 

663  PR INT*  J*  f « FORP- 1 T0233STEP2 » POKEH ,P  »POKET , I7«NEXT«8C-SC* 100 » P0KE33272 ,2  I 
670  FOR  I -0T023*<  RND<  1>*I0> 

673  P0KE3328 1  , I »POKE332BO, I ♦ 1« NEXT » P0KE3328 I . 1 » POKE332BO , 1  I« POKEH ,0 « POKET ,0 

680  PR  INT*  JJONUS  *  i  80  :  *  mBMBSft.E  vr  L  :  *  I LV » LV-LV*  I  » LL -LL ♦  1 

683  FOR  I -0T02000 » KCXT  s  BO -BO ♦ 1 00 

690  IFFA> ITHEN^A-  I 

693  IFLL  > 10THEFCL- 10 

700  PRINT-J*  »POKEV *24 ,28 »G Y-0 » GOTO  101 

1000  REM  OA TA  TIL  GRAFIK 

1001  DATA24 ,60 ,60 ,60 ,60 ,60 , 126 ,219 

1 002  0ATA24O ,240,124, 233 , 233 ,124,240,240 

1003  0ATA90 . 126,60,60,24 ,0,0,0 

1004  DATA  1 29 , 34 , 36 , 76 , 89 , 1 ,23,4 
1003  OATAO, O, O, O, 235, 233, 233, 233 

1 006  0ATA233 , 233 , 233 , 233 , 233 , 233 , 233 . 233 

1007  OATAI , I , 1 , 1 ,3, 13,63,233 

1008  DATA  1 28 , 128. 128, 128, 192,240.232,233 

1009  OATAO, O, O, O, 240, 248, 232, 234 

1010  0ATA255 , 233 ,233 ,233 , 233 .233,233,233 

101 1  0ATA233 ,233 , 195, 193, 193,203, 193, 193 

1012  0ATA233, 233, 2 13, 233, 2 13, 2 13, 233, 233 

1013  OATAO. O, O, O, 13.31  .63. 127 


Soft  Special  43 


Smarte  datakarc 


10  P0KE53281 ,0 : P0KE53280 ,0 

20  PR  I  NT  JJIWBBMBrmiTT  «  <  D ATP -KARAKTER  ***" 

30  PRINT" M— —MM MWENT  ET  ØJEBLIK" 

40  P0KE32 ,48 : P0KE56 ,48 : P0KE36334 ,PEEK< 56334 )AND254 : POKE 1 ,PEEK<  1 >AN0251 
50  FORA* 12288T0 16383  *  POKEA ,PEEK< A >40960 ) s  NEXT 

60  POKE 1 ,PEEK<  1 )0R4 : P0KE56334 ,PEEK<  56334 >0R 1  s  P0KE53272 ,< PEEK<  53272 ) AND240 ) ♦ 12 
70  FORA* 12288T0 12799 : READB : POKEA ,B : NEXT 
80  FORA* 1 33 12T0 1 3823 : READB : POKEA ,B : NEXT 
90  PRINT"LMYT  ALFABET:" 

100  PRINT"*4BCDEFGHI  JKLMNOPQERSTUVUXYZ  " 

110  PRINT"*TJYE  TEGN:" 

120  PRINT"**-*/*!  ;  ftA  ,  .  <  >?®t4-»  " +CHR*<  34  >  ♦  "  "  >CHR*<  39  >  ♦"#*•/.&'  <  )  " 


130  PRINT"M*TJYE  TEGN  ON" 

140  PR  I  NT"  **0^53272  ,<  PEEK<  33272  >  AND240  )0R  1 2  " 
150  PRINT"nTJYE  TEGN  OFF " 

160  PR INT"*30KE33272 ,21  " 

170  DATA060 ,066 ,090 ,082 ,076 ,064 , 060 ,000 ! REM  © 
180  data060,036,036,  126,098,098,098, oooirem  a 
190  DATA  124 ,068 ,068 , 126 ,098 ,098 , 126 ,000 ! REM  B 
200  DATA  126 ,066 ,064 ,096 ,096 /098 , 126 ,000 : REM  C 
210  DATA  126, 066, 066, 098, 098 ,098, 126, OOOIREM  D 
220  0ATA124, 064, 064, 120,096,096, 124, OOOiREM  E 
230  DATA  124, 064, 064, 120, 096, 096, 096, 000  IREM  F 
240  DATA126, 066, 064, 102,098,098, 126, OOOiREM  G 
230  DATA066, 066, 066, 126, 098, 098, 098, 000: REM  H 
260  DATA016, 016, 016, 024, 024, 024, 024, OOOIREM  I 
270  DATA004 ,004 ,004 ,006,006,070 , 126, 000  i  REM  J 
280  DATA068, 068, 068, 126, 098, 098, 098, 000 : REM  K 
290  0ATA064, 064, 064, 096, 096, 096, 124, 000 : REM  L 
300  DATA127, 073, 073, 105, 103, 103, 105, OOOiREM  M 
310  DATA  126, 066, 066, 098, 098, 098, 098, 000 : REM  N 
320  DATA  126, 070, 070, 066, 066, 066, 126, 000: REM  O 
330  DATA126, 066, 066, 126, 096, 096, 096, OOOiREM  P 
340  0ATA126, 066, 066, 066, 066, 078, 126, OOOiREM  Q 
330  DATA  124, 068, 068, 126, 098, 098, 098, 000  IREM  R 
360  DATA126, 066, 064, 126,006,070, 126, OOOiREM  S 
370  DATA  126, O  16, O  16, 024, 024, 024, 024, 000 : REM  T 
380  DATA066, 066, 066, 098, 098, 098, 126, OOOiREM  U 
390  DATA098, 098, 098, 102, 036, 036, 060, 000 : REM  V 
400  DATA073, 073, 073, 105, 105, 105, 127, OOOiREM  W 
410  DATA066, 066, 098, 060, 098, 098, 098, 000 : REM  X 
420  DATA066, 066, 066, 126, 024, 024, 024, OOOiREM  Y 
430  DATA126, 066, 002, 126,096,098, 126, OOOiREM  2 
440  DATA060, 032, 032, 032, 032, 032, 060, 000 : REM  ft 
430  DATA126, 064, 064, 240, 096, 096, 126, OOOiREM  0 
460  DATA060, 004, 004, 004 ,004, 004, 060, OOOiREM  A 
470  DATAOOO, 024, 060, 126, 008, 008, 024, 024 : REM  t 
480  DATAOOO, 016, 048, 124, 127, 048, 016, OOOiREM  «- 
490  DATAOOO , 000 , 000 , 000 , 000 , 000 , 000 , 000 : REM 
300  DATA016, 016, 024, 024, 024, 000, 024, OOOiREM  « 
3  10  DATA  102, 102, 034, 034, 000, 000, 000, 000 : REM  " 
520  DATA100, 100,255, 102, 255, 070, 070, OOOiREM  # 
530  DATA016, 126,080, 126,018,082, 126, 016IREM  * 
340  0ATA034 , 102,012,024  ,032,070,004  , OOOiREM  */ 
330  0ATA062, 032, 034 , 127,098,098, 126, 000 : REM  & 
560  DATA006, 012, 016, 000, 000, 000, 000, OOOiREM  1 
370  DATA008, 016, 032, 048, 048, 024, 012, OOOiREM  < 
580  DATA016, 008, 004, 012, 012, 024, 048, OOOiREM  ) 
390  DATA  129, 102,060,255,060, 102, 129, OOOiREM  * 
600  DATAOOO, 024, 024, 126, 008, 008, 000, 000 : REM  ♦ 
610  DATAOOO, 000, 000, 000, 024, 024, 008, 008IREM  , 
620  DATAOOO, 000, 000, 126, 1 12, 000, 000, 000 : REM  - 
630  DATAOOO, 000, 000, 000, 000, 024 ,024, 000 : REM  . 
640  DATAOOO, 003, 006, 012, 016, 032, 064, OOOiREM  / 
650  DATA  126, 066, 066, 070, 070, 070, 126, OOOiREM  O 
660  DATA008, 008, 008, 024, 024, 024, 024, OOOiREM  1 
670  OATA 126, 066, 002, 126,096,096, 126, 000 : REM  2 
680  DATA124, 068, 004, 062, 006, 070, 126, OOOiREM  3 
690  DATA  126, 066, 066, 066, 127, 006, 006, 000 : REM  4 
700  DATA126, 064, 064, 126,006,070, 126, OOOiREM  5 
710  DATA126, 066, 064 , 126,070,070, 126, OOOiREM  6 
720  DATA126, 002, 002, 006, 006, 006, 006, OOOiREM  7 
730  DATA060, 036, 036, 126,070,070, 126, 000 : REM  8 
740  DATA  126, 066, 066, 126, 006, 006, 006, 000 : REM  9 
730  DATAOOO, 024, 024, 000, 000, 024, 024, 000 : REM  i 
760  DATAOOO, 000, 024, 000, 024, 024, 008, 008 : REM  ; 
770  DATA014 ,024 ,048, 096, 032, 016, 014, OOOiREM  < 
780  DATAOOO, 000, 126,000, 126, 1 12, 000, 000 : REM  = 
790  DATA1 12,024,012,006,004,008, 1 12, OOOiREM  > 
800  DATA  1 26 ,002 ,002 , 1 26 , 096 , 096 , 000 , 096 : REM  ? 
8  10  REM 


820  REM  *****  NEGATIVE  TEGN  ***** 

830  REM 

840  DATA195, 189, 165, 173, 179, 191 , 193,255iREM  © 
830  DATA195,219,219, 129, 137, 137, 137,255iREM  A 
860  DATA131 , 187, 187, 129, 137, 157, 129,255iREM  B 
870  DATA129, 189, 191 , 139, 139, 137, 129,253iREM  C 
880  DATA129, 189, 189, 137, 157, 137, 129,255iREM  D 
890  DATA131 , 191 , 191 , 135, 159, 139, 131 ,233iREM  E 
900  DATA  13 1 , 191 , 191 , 133, 139, 159, 159,255 : REM  F 
910  DATA129, 189, 191 , 153, 157, 137, 129,235iREM  G 
920  DATA189, 189, 189, 129, 137, 137, 157,255iREM  H 
930  DATA239,239,239,231 ,231 ,231 ,231 ,255iREM  I 
940  DATA251 ,251 ,251 ,249,249, 185, 129, 255IREM  J 
930  DATA187, 187, 187, 129, 157, 157, 157,255iREM  K 
960  DATA191 , 191 , 191 , 159, 159, 159, 131 ,235IREM  L 
970  DATA128, 182, 182, 130, 150, 150, 150,255iREM  M 
980  DATA129, 189, 189, 137, 137, 137, 137,253iREM  N 
990  DATA129, 185, 183, 189, 189, 189, 129,255iREM  O 
1000  DATA129, 189, 189, 129, 159, 159, 139,253iREM  P 
1010  DATA129, 189, 189, 189, 189, 177, 129,253IREM  Q 
1020  DATA131 , 187, 187, 129, 157, 157, 157,255iREM  R 
1030  DATA129, 189, 191 , 129,249, 185, 129, 233 : REM  S 
1040  DATA  129, 239, 239, 231 ,231 ,231 ,231 ,253:REM  T 
1030  DATA189, 189, 189, 157, 157, 157, 129,255iREM  U 
1060  0ATA157, 157, 137, 133,219,219, 195, 253IREM  V 
1070  DATA182, 182, 182, 150, 130, 150, 128,255iREM  Ui 
1080  DATA189, 189, 137, 195, 157, 157, 137,255iREM  X 
1090  DATA189, 189, 189, 129,231 ,231 ,231 ,233iREM  Y 
1100  DATA129, 183,233, 129, 159, 157, 129, 233IREM  Z 
1110  DATA  195 ,223 ,223 ,223 ,223 ,223 , 195 ,233 : REM  ft 
1120  DATA129, 191 , 191 ,015, 159, 159, 129,255iREM  0 
1130  DATA193,251 ,231 ,231 ,231 ,231 , 193,253iREM  A 
1140  DATA255, 231 , 133, 129,247,247,231 ,231  IREM  t 
1150  DATA255, 239, 207, 131 , 128, 207, 233, 253  :  REM  ♦- 
1 160  DATA235, 255, 255, 255, 255, 255, 255, 255 : REM 
1170  DATA239, 239, 231 ,231 ,231 ,235,231 ,255 : REM  ! 
1180  DATA153, 153,221 ,221 ,255, 253, 235, 255IREM  " 
1190  DATA155, 155,000, 153,000, 185, 185, 255  :  REM  *t 
1200  DATA239 , 129, 173, 129,237, 173, 129, 239IREM  $ 
1210  DATA221 , 133,243,231  ,223, 185,251  ,255:REM  */ 
1220  DATA  193, 223, 221 , 128, 157, 157, 129,255:REM  & 
1230  DATA249, 243, 239, 255, 255, 255, 255, 255 : REM  • 
1240  DATA247 ,239 ,223 ,207 ,207 ,231 ,243 ,253 : REM  < 
1250  DATA239, 247, 251 ,243,243,231 ,207, 255IREM  > 
1260  DATA126, 153, 193,000, 195, 153, 126, 255IREM  * 
1270  DATA255 ,23 1 ,23 1 , 129 ,247,247 ,255 ,255  i  REM  ♦ 
1280  DATA253 ,255 ,235 ,255 ,231 ,23 1 ,247 ,247 : REM  , 
1290  DATA255, 253, 235, 129, 143, 255, 255, 255  i  REM  - 
1300  DATA255 ,255 ,255 ,255 ,255 ,231 ,231 ,255 : REM  . 
1310  0ATA255, 252, 249, 243, 239, 223, 191 ,255 : REM  / 
1320  0ATA129, 189, 189, 185, 185, 185, 129,255iREM  O 
1330  DATA247,247,247,231 ,231 ,231 ,231 ,253iREM  1 
1340  DATA129, 189,253, 129, 139, 159, 129, 255IREM  2 
1350  DATA131 , 187,251 , 193,249, 185, 129, 255IREM  3 
1360  DATA129, 189, 189, 189, 128 ,249 ,249 ,255 : REM  4 
1370  DATA129, 191 , 191 , 129,249, 185, 129, 255IREM  5 
1380  DATA129, 189, 191 , 129, 185, 185, 129,255iREM  6 
1390  OATA 129, 253, 253, 249, 249, 249, 249, 255 : REM  7 
1400  0ATA195,219,219, 129, 185, 185, 129,255IREM  8 
1410  DATA  129 , 189 , 189 , 129 ,249 ,249 ,249 ,253 : REM  9 
1420  DATA255, 231 ,231 ,255,255,231 ,231 ,255iREM  : 
1430  DATA255, 255, 231 ,235,231 ,231 ,247, 247IREM  ; 
1440  DATA24 1 ,231 ,207, 159,223,239,24 1 ,255iREM  < 
1450  DATA255, 255, 129,255, 129, 143, 255, 255IREM  = 
1460  DATA143, 231 ,243,249,251 ,247, 143, 255 : REM  > 
1470  DATA123, 253, 233, 129, 159, 159,255, 159IREM  ? 
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■  I  dette  spil,  der  passer  til 
Spectrum  16K  og  48K,  skal  du 
torsvare  en  mur,  der  er  livs¬ 
nødvendig  som  beskyttelse  al 
en  landsby. 


SPEC¬ 

TRUM 


1  BORDER  ø  PAPER  0  INC  7  : 

ls  go  sub  ;øcø 

2  DATA  153  153.  *55, 24.  24  126 
66.195  152  152 ,255 .2? ,27  12©  .32 

4  129  129  255 . 129 , 129*129  255  1 
29  251  251  251.0.191  191  191  0 

3  OA'R  ©  14 .53. 110. 13e  0  ©  © 
ø  ø  126  192  32.0 .0  O  126  11 ø  5: 
14  lø.ø  ø  ø  32.192  123  øøøø  © 

4  w5T  j  =ie 

5  PØP  n >1 44  TO  151  FØR  f *0  ~ 
O  7  READ  •  POKE  USP  CMP*  r..-  i 

NEXT  f  NEXT  n 

6  lET  «t>  h 

7  L.ET  y-INT  >RND«2ø*5  l£~ 

*20  LET  4*15  LET  b  * I NT  .Rn:*20 
♦  5  •  i-ET  ^  *2  LET  sc=ø 

6  LE-*-  DS*  EF  " 

9  LET  i =ø 

10  PRINT  9*  19.1  INC  2  d:c:c 
DDDDODDDDDDDDDDDDDDDDDDDC  at  ;; 

1  ink  3  DDDDDDDDDDDDDØDDDOOC  z 
DDDDDDDDD 

15  FOP  O  =1  TO  h  PRINT  RT  *0.- 
-30,  C  NE*T  n  PRINT  RT  20-'  3 

0.  "D  1 

17  LET  h*n*l 

13  IF  h »13  THEN  FOP  o  *21  TC  ø 
STEP  -1  PRINT  RT  n , 30  nE-t 

n  LET  h =2  lET  ■ =20  GO  TO  15 
20  PRINT  RT  x ,y-l, M 

30  PRINT  R'  4-b-l,  INK  CCS 

31  IF  RND  .95  TMEN  LET  1=1 

35  IF  INKE.-S*  0"  TUEN  GO  TO  1. 

0 

40  LET  usy« i INKEYS*S  AND  4  3 
'ø  RNO  -  =20-  INKETSs  5  AND  ,  . 

RND  x  v  =£0, 

45  IF  i*l  THEN  GO  SUB  200 
50  IF  INKE  S«"7"  RND  i *30  ANC 
=2ø -h4 1  then  LET  ksX-1  PRINT 
RT  <  ,  y  ’  A '  RT  x+l-y-’C" 

55  IF  INCE'S*"6  AND  20  The*. 
lET  x  * x  4 1  PRINT  AT  -  y  R  RT 
x-l ,  y,  "C 

60  LET  b*D*  RND  >.5  RND  b  23 1 2 3 4 5 6 7 * 9 10 * * 13  - 
RND  .5  RND  e  •  2 1 

70  IF  <=20-h4l  TMEN  lET  •%  e 
PRINT  RT  .-ly.”  • 

30  LET  S  C  *S  C  ♦  1 
35  LET  DS*  EF  - 

90  IF  S  c. 2  INT  (S  C  -  2 1  TMEn  _£ 
T'  .  ft.  GM 

29  :m  1*1  THEN  LET  ft*»*i  LE*" 


Sagen  er  bare,  at  en  kæmpe¬ 
ørn  synes,  det  er  sjovt  at  bom¬ 
bardere  muren,  og  det  skal 
du  torhindre  med  alle  mid¬ 
ter  ■  -  Allan  Poulsen 


'  '  TMEN 

BEEP  .01  i  PR 
LET  s  c  *$  c  «  15  wE 


100  GO  TO  20 

ilø  IF  •$  B  TMEN  GO  TO  20 

111  LET  s  s*  A 

112  LET  r  =s  c  *5 

115  FOP  n  *19  TO  é*l  STEP  -1 

120  IF  SCREENS  • n , y i  =  'HEN  c 
PINT  AT  r.  ,  y.  INK  5.  C  3EEP  .01 
.20  GO  TO  15 

121  IF  S  GREENS  <r*,y*  TMEN  G 
O  TO  15 

130  NE*T  n 
140  GO  to  15 

200  IF  SCREENS  <ft  ,  b  1  1  tmen 

PRINT  RT  t.b  ♦  BEER  .01  *  PR 
INT  RT  S  ,  b  "  LET  S  C  =ft  C  *  15  wE 
T  s =16  RETUPN 

205  »PINT  RT  s,b;-ft"  BEEP  .01 
5  PRINT  RT  s  b. "  " 

210  LET  *  *S  «  1 

211  IF  s =21  tmEN  GO  TO  250 
220  GO  TO  200 

250  PRINT  RT  10.11,  FLRSM  1  GR 
ME  DUER  BEEP  1  -10 
260  PRINT  RT  12.11,  INVERSE  1 
SCORE*-,  f^ash  i.*c 
300  FOR  n*l  TO  400  NEXT  n 
400  CLS 
500  RUN 

løøø  PRINT  RT  3,9.  FlASM  1.  EAGl 
E-ATTACK 

1100  PRINT  RT  5,2, "DU  MAP  NETOP 
FAERO IGGJOPT 

1200  PRINT  RT  6.2,  EN  MUR.OESvAE 
RE  BLIVEP  DEN 

1300  PRINT  RT  7,2, "BOMBADEPE”  RF 
EN  øRN. 

14øø  PRINT  RT  6,8, "HVIS  ØRNEN  GE 
NNEHBRv  DER  MUREN 

1450  »PINT  at  9,2, "ER  DU  frepDIG 
SAR  DU  HAR 

1460  PRINT  R-r  10,2,  -MELE  TIDEN  ^ 
ØBE  OP  RF  3TIGEN 

1470  PRINT  RT  11,2.  FOR  RT  HENTE 
NYE  STEN  TJl 

1460  PRINT  RT  12.2. "AT  REPARERE 
MUREN. 

1490  PRINT  RT  14. 2.' DU  ST/RER  h£ 
D  CURSOR -PILENE” 

1495  PRINT  RT  15,2.  OG  5T£NEh  Lh 
EGGES  PRR  PLADS" 

1497  PRINT  RT  16,2. "MED  0 
1500  INPUT  TRYK  ENTER  NARP 
DU  ER  KLAR  OS 
1600  CLS  RETURN 


kterer 


Commodore  tricks 


BBCDEEGHflBCDEEGH 

IJHLMNDPXJHLCTNDP 

QRSTLJUUJ1QBSTIJUUJ! 

&7fl^O?iL&7Bl=aO?!E. 


■  Dette  program  laver  hele 
karaktersættet  om  til  smarte 
data  karakterer,  ndr  du  kører 
med  store  bogstaver  på  tasta¬ 
turet.  Programmet  er  skrevet 
tuldt  i  BASIC  og  kører  pd 
CBM-64.D 

Lars  Zeuner 


COMMO 

DORE 

64 
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Systemtips 


■  Mange  tipsprogrammer 
har  gennem  tiderne  set  da¬ 
gens  lys.  Dette  program  ad¬ 
skiller  sig  Ira  de  tleste  ved,  at 
det  udnytter  systemtipnin¬ 
gens  tordele.  Programmet 
sætter  brugeren  i  stand  til  løl- 
gende: 

Man  kan 

gemme  systemer  på  bånd 
hente  systemer  tra  bdnd 
bruge  systemer 
selv  indtaste  nye  systemer 
Programmet  er  i  stand  til  at 
kopiere  systemer  tra  ét  bånd 
til  et  andet,  hvilket  vil  være 
nyttigt,  når  tiere  brugere  at 
programmet  vil  "bytte"  syste¬ 
mer  med  hinanden! 
Programmets  kapacitet  er  al¬ 


le  reducerede  systemer  tra  1 
til  255  enkeltrækker,  hvilket 
skulle  være  tilstrækkeligt  for 
de  tleste. 

Indtastning  af 
nyt  system: 

Når  programmet  har  spurgt 
om  navnet  på  systemet,  antal 
hel-  og  halvgarderinger  og 
antal  rækker,  skal  ABC -nøg¬ 
len  indtastes:  Programmet 
skriver  "HELGARDERING  NR. 
1' '  og  tegner  en  grøn  bjælke . 
Helgarderingerne  skal  nu 
indtastes  nøjagtigt,  som  de 
står  i  ABC-nøglen  (brug  taster¬ 
ne  1 ,  x  og  2).  Tegnene  vil  ef¬ 
terhånden  erstatte  den 
grønne  bjælke .  Idet  man  ta¬ 


ster  sidste  tegn  i  hver  bjælke, 
skiltes  der  automatisk  til  næ¬ 
ste  bjælke  (=  næste  hel-  ell. 
halvgardering). 

VIGTIGT!  Alle  halvgarderin¬ 
ger  skal  indtastes  med  tegne¬ 
ne  1  og  2!  (programmet  æn¬ 
drer  selv,  hvis  du  får  brug  tor 
lx  ell.  x 2  garderinger). 

Brug  af  system 

Man  designer  sin  opstillings¬ 
række  ved  brug  at  tasterne 
fl,  15,  13  og  'CRSR  UP/DWN'. 
Første  tryk  på  1 1  /f3/15  tænder 
det  ønskede  tegn  imellem  > 
og  < ,  andet  tryk  slukker.  Når 
der  tastes  f7  checker  pro¬ 
grammet,  om  der  er  det  rette 
antal  hel-  og  halvgarderin¬ 


ger,  og  melder  deretter  OK! 
eller  FEJL!  Fås  meldingen 
FEJL!,  så  ret  og  tryk  17  påny. 
Når  der  vises  OK! ,  kreerer  pro¬ 
grammet  samtlige  rækker  i 
systemet  og  viser  dem  på 
skærmen,  seks  ad  gangen,  li¬ 
ge  til  at  skrive  ned  Då  tipsku¬ 
ponen! 

I  øvrigt  er  programmet  selv¬ 
forklarende. 

TIPS:  Det  er  en  god  idé,  at 
holde  program  og  data  (sy¬ 
stemer)  adskilt  på  hver  sit 
bånd,  da  dette  reducerer  risi¬ 
koen  tor  utilsigtet  sletning  til  et 
minimum.  □ 


Martin  Christiansen 


9  REM  »*»**  JNIT 

10  POKE  33881,0 

11  PRIMT'UH 
18  PRINT-  | 

13  PRINT-  >- 

14  PRINT 
13  PRINT  -i 
18  PRINT  'Mi 

17  PRINT  -i 

18  PRINT  'Ml 

19  GETA*!IFA* 

8 


SYSTEMTIPNING  ICO  C0M40D0RE  84  | 


VERSION  8.0* 

AF  D.  14/1 1  - 1984 - 
<C>  1984  BY  0Z1IKU- 
MARTIN  CHRISTIANSEN- 
3  TRYK  EN  TAST  i 

THEN  19 

DIM  HA*<  13), HE«  13>,KA«  13) 

83  DIM  RAW  13,855>,UR*<  13) 

88  DIM  D<  13), EC  13), F<  13>,GA<  13) 

30  F0RI-1T013IUR« I)--  -lFCXT 
100  REM  ******  STYREPROGRAM  ******* 

105  GOTO  7000 1  REM  * »HOVEDMENU*** 

150  REM  *************************** 

310  REM  *****  RAEKKERhC  UOSKRIVES  ***** 

318  TXT*--MJ  RAEKKERNE  UDSKRIVES 

315  PRINT  TXT* 

380  PRINT  ■*M"«T«3 
330  FORP- 1T0RA 
350  PR INTTABC  T+ 1 ) J P 
360  PRINT 

370  PRINTTABC  T)**, - >g* 

380  FOR  I«1  TO  3»PRimTAB<  T)IRA*<  I  ,P)  shCXT  I 
385  PRINTTAB<  T>-*| - |g* 

390  FOR  1*4  TO  6«PRINTTAB< T)JRA«  I ,P>  fhCXT  I 
400  PRINTTAB<T)-*| - 1*" 

410  FOR  1-7  TO  9tPRINTTAB<T)JRA« I,P>  fhEXT  I 
480  PRINTTAB<T)"*| - 11* 

430  FOR  I - 10  TO  13»PRINTTAB(  T> JRA*<  I,P>  »hEXT  I 


440  PRINTTAB<  T>  *■' - '1* 

450  T-T+6iPRINrTVIllIlIIlIlIIlIIIIIIir 

455  IF  P<  >RA  AhC  P/6*INT(P/6)  THEN 8 F *  1 1 GETA*» IFA** " "  THEN455 
457  1FF-1  THEN  PR INTTXT*!  W  * T-3  8 F*0 
460  hCXT  P 

470  GETA** IFA**-'  THEN  470 
480  RETURN 

5000  REM  *****  SUB  SIKKER  ***** 

5010  FORJ  *  1  TORA 

5080  IF  UR*<  I )-• 1 -THEN  RA«  I  ,J>-"»IB1  ■  I  «' 

5030  IF  UR«  I  ) *  "X "THEN  RA«  I,J)-"1IH  X  M\Mm 
5040  IF  UR«  I)-*2*THEN  RA«  I,J)*'Blil  2||fl* 

5050  NEXT  J 
5060  RETURN 

5100  REM  *****  SUB  HALV  ***** 

5110  IF  UR« I ) - • IX •  THEN  A*-'8' 

5180  IF  UR«I)-*X2*  THEN  A*-'l' 

5185  IF  UR«  I  )-"  18"  THEN  A*-" 

5130  F0RJ-1T0RA 

5150  B**MID«  HA«  B)  ,  J  ,  1  ) 

5160  IF  B*-A*  THEN  B*-'X* 

5170  IF  B** •  1  ,THEhf?A«  1  , J ) - IH1  III' 

5180  IF  B*- "X "THEM?A«  I,J)-"IIH  X  II*' 

5190  IF  B*»*2*THENRA«  I ,J)-*BIH  8118* 

5800  hCXT  J 
5810  RETURN 

5300  REM  *****  SUB  HEL  ***** 

5310  FORJ- 1  TORA 

5380  C6-MID«  HE«  A) ,  J  ,  1 ) 

5330  IF  C«-'l 'THENRA«  I,J)-**H11  lig* 

5340  IF  C8»*X*THEM?A«  I,J)»”HH  X  II*' 

5350  IF  C*- *2 *THENRA«  I ,  J >« *g IH  2118* 


46  Soft  Special 


kane  nf. ■; i  ;tab<  17>; " | 


KANE  NF .  "  ;  1 1  TAB«  17);  '  | 


KANF  nf.  •; I  ;TAB<  17); ■ | 


I  NEXT  J 
RETURN 

REM  *  *  *  *  »SYSTEM I NDL AE SN IND***** 

GOSUB  9000 1  REM  ****  NULSTIL  Ml 

TXT#-",J*  HENTE  SYSTEM  Ma 

PRINT  TXTS*  INPUT  "■aMMMMMMMfSYSTENNAVN-;  SYS 
PRINT  TXTtiPRINT'MMHMIl  ILAEG  DATAKASETTE • 

GETAS* IFAS-" "  THEN  3433 
0PEN1 , 1 ,0 ,SY# 

INPUT# 1 ,HE 
INPUT#  1  ,  HA 
INPUT# 1 ,RA 

IFHE<  )0  THEN  FOR  I « 1T0HE » INPUT# 1 ,HE#<  I ) * NEXT 
IFHA< )0  THEN  FOR  I  * 1T0HA i  INPUT# 1 ,HAS«  I ) INEXT 
CLOSE  1 
RETURN 

REM  *****  OPSTILLINGSRAEKKE  MIM 

FOR  0-1  TO  13*  URS«  Q)«"  " *F< Q)«0»E(  Q)-0*D< Q)-0*NCXT  O 

TXTS-"«J  OPSTILLINGSRAEKKE  BT 

PRINT  TXT# 

PRINTTAB«  17);  mm, - .a 

FOR  1*1 T03 » PR INT  ■  KANF  NP. "; I ;TAB(  17); ■  |  | " i NEXT  I 

PR INTTAB(  17);  ■  1 - |" 

FOR  I »4T06 SPRINT  ■  KANF  NP. •; I;TAB(  17); *  |  I'INEXT  I 
PR INTTAB«  17);  -  | - |" 

FOR I «7T09 SPRINT  *  KANF  NP . ■ ; I ; TAB(  17); "  |  |  " S NEXT  I 

PR  INTTAB<  17);  ■  J— I  " 

FOR  I * 10T0 13  s  PRINT  "  KANF  NP . • ; I ; TAB<  17 ) ; "  |  l’SNEXT  I 

PR INTTAB<  17);  "  ' - »• 

PRINT  "MMr;TAB<  16);  *" 

print  aBHaaaia;TAB( 23);  a<Fi )  -  \mmm 

PRINT  TAB(  25); -<F3)  *  XWMm 
PRINT  TAB«  23);  "<F3>  *  2M1 
PRINT  TAB« 23); "<F7)  -  FAERDIG" 

LI-1 »KA-1 
GET  AS 

IF  AS«"*"  THEN  GOSUB  5900 

IF  AS«"*"  THEN  GOSUB  6000 

IF  AS«"*"  THEN  GOSUB  6100 

IF  AS«"D"  OR  A#-"t "  THEN  GOSUB  6300 

IF  AS-"*"  OR  AS-CHRS«  13)  THEN  G0SUB6200 

IF  AS«"*"  THEN  OK "O s G0SUB6400 s IF0KTHEN5860 

GOTO  3780 

RETURN 

REM  ttttt  SUB  ETTAL  ttttt 
IF  0<  KA) *0  THEN  5960 

D<  K  A  >  *0  s  PR  I  NT  *  MH"  *  FOR  I  *  1  TO  LI »PRINT"*"; »NEXT  I 

PRINTTAB<  18); a  a 

URS«  KA ) ■  a  •♦MIDS«  URS«  KA), 2, 2) 

BCTUDN 

0(  KA )  *  1  :  PR  INT  "#**■"  s  FOR  I  *  1  TO  LI  SPRINT"*";  »NEXT  I 
PR INTTAB<  18); "1  " 

URS«  KA)-"  1  "♦MIDS«  URS«  KA)  ,2,2) 

RETURN 

REM  *****  KRYDS  ***** 

IF  E<  KA ) *0  THEN  6060 

E«KA)»0:PRINT"***r  »FORI-1  TO  L  I  SPRINT"*";  »NEXT  I 
PRINTTAB«  19); "  a 

URS«  KA ) -MIDS«  URS«  KA )  ,  1 , 1  ) ♦ "  "  ♦MIDS«  URS«  KA )  ,3 , 1  ) 

RETURN 

E( KA>*1 s  PR  I NT  *  B**|"  : FORI-1  TO  LI  SPRINT"*"; SNEXT  I 
PRINTTAB«  19); "X" 

URS«  KA ) »MIDS«  URS«  KA ) ,  1  ,  1  ) ♦  "X a ♦MIDS«  URS«  KA)  ,3, 1  ) 

RETURN 

REM  *****  TOTOAL***** 

IF  F<  KA)*0  THEN  6160 

F<  KA  )  *0  s  PR  INT  "9**l"  s  FOR  I  *  1  TO  LI  SPRINT"*"  *  »NEXT  I 
PRINTTAB« 20); "  " 

URS«  KA)*MID#<  URS«  KA) ,  1  ,2)  +  "  " 

RETURN 

F«KA)-1 »PRINT"***"  »FORI-1  TO  LI  SPRINT"*"; »NEXT  I 

PRINTTAB« 20); "2a 

URS«  KA ) -MIDS«  URS«  KA) ,  1  ,2)  +  "2" 

RETURN 

REM  ***  KED  *** 

IF  KA  = 1 3  THEN  RETURN 

PRINT  "*Hr  s  FORN*  1  TOLI  SPRINT  "*";  SNEXT  N 
PRINT  TAB«  16)"  SSSSfl  " 

L  I  «L  I  ♦  1  -«  KA-3)-<  K A  =6  )  -(  KA-9 )  s  KA-KA+ 1 
PRINT  "MM*  s  FORN*  1  TOLI  SPRINT"*",*  s  KEXT  N 
PRINT  TAB«  16);  "■>!£££**  *" 

RETURN 

REM  ***  OP  *** 

IF  KA* 1  THEN  RETURN 

PRINT  "MW*  s F0RN=1  TOLI  SPRINT  "*",*  SNEXT  N 
PRINT  TAB«  16)"  ******  " 

L I  *L  I  - 1  ♦<  KA  =  4  >  ♦(  KA  =  7  )  ♦«  KA*  10)  »KA-KA-  1 
PRINT  "M*T  »FORN«  1  TOLI  »PRINT"*";  »NEXT  N 
PRINT  TAB«  16);  "H>)*B**§C  *' 

RETURN 

REM  *****  GARDERINGSKONTROL  ***** 

PRINT  "**B*H*******BI***H**i"  ;TAB(  29);  "VENT"; 

G1-0SG2-0SG3-0 
FOR  I  * 1T0 13 
GA<  I) -O 
FOR  J-l  TO  3 

IF  MIDS«  URS«  I),J,1)< )"  "THENGA«  I  )-GA(  I )  +  l 
KEXT  J 

IF  GA< I)-l  THEN  Gl-Gl+1 
IF  GA«  I) *2  THEN  G2-G2+1 
IF  GA«  I )  *3  THEN  G3-G3M 
NEXT  I 

IF  G2-HA  AMD  G3-HE  AND  GUG2+G3-13  THEN  OK- 1  s  GOSUB  6600  s G0T06530 

OK -O s GOSUB  6700 

RETURN 

REM  *****  BLINK  OK  ****** 


•♦MIDS«  URS«  KA)  ,3, 1  ) 


THEN  BS-BS^MIDS«  URS«  I),Y,1) 


6603  FORL-1  TO  3 

6610  PRINT  -B*HH**M**M*HM*i';  TAB«  29)1 
6620  F ORO - 1  TO  1 00  s  NEXT  O 

6630  PRINT  -B*n**H*H**H*M****i" # TAB«  29)1 
6640  FORO- 1 TO  100 SNEXT  O 
6643  NEXT  L 
6630  RETURN 

6700  REM  *****  BLINK  FEJL  ****** 

6703  FORL-1  TO  3 

6710  PRINT  'MMMBMHBBi.)  TAB«  29)1 
6720  FORO *1  TO  100  s NEXT  O 

6730  PRINT  'MBBBBMMMM' ;  TAB«  29 )J 
6740  FORO -1 TO  100  s NEXT  O 
6743  NEXT  L 
6730  RETURN 

6800  REM  *****  RAEKKERNE  UDREGNES  ***** 

6801  TXTS-  atJH  RAEKKERNE  UDREGNES 

6802  PRIN/T  TXTS 

6803  PRINrT"MHHMHHMia;TAB«  17);  ak/ - 

6804  PRINTTAB«  17)"  IVENiT  I" 

6803  PR INTTTAB«  17)"  » - *9 

6806  PRINrT-BHMMlMMai^ENrr  LIDT  NEDENS  JEG  FINDER! 

6807  PRINVBaMAMflflEiN  TRETTENER  TIL  DIG!" 

6810  FOR  I - 1T0 13 

6813  BS-"" 

6814  FOR  Y-1T03 

6813  IF  MIDS«  URS«  I),Y,1)<>"  "THEN  BS-BS+MIDS« 

6816  NEXT  Y 

6817  URS« I)-BS 

6820  IF  LENK  URS«  I ) ) -3  THEN  A-A+lsGOSUB  3300 

6839  IF  LENK  URS«  I  >  )-2  THEN  B-B+UGOSUB  3100 

6840  IF  LENK  URS«  I  )  ) - 1  THEN  C-CM  »GOSUB  3000 
6830  NEXT  I 
6860  RETURN 

7000  REM  ****************************** 

7010  REM  *  HOVEONENU  * 

7020  REM  ****************************** 

7030  TXTS-"ly«i  HOVED  NEND 

7040  pRiNiT  txts; ‘Mamai*  ; 

7030  PR INT  "  <  F 1 >  ■  LAGRE  SYSTE  MM" 

7060  PR  I  NT  "  <F3>  «  HENTE  SYSTEM!" 

7070  PR INT  "  <F3  >  ■  BRUGE  SYSTEM*" 

7073  PRINT  "  <F7>  -  INDTASTE  NYT  SYS' 

7077  PRINT  "  <S>  -  SLUT" 

7080  GET  ASSIFAS-""  THEN  7080 
7090  IF  AS-"*"  THEN  GOSUB  10000 s  GOTO  7000 
7100  IF  AS-"*"  THEN  GOSUB  3400 s  GOTO  70p0 
7110  IF  AS«"*'  THEN  GOSUB  3600 »GOSUB  6800 »GO! 

7113  IF  AS-"*"  THEN  GOSUB  8000 »GOTO  7000 
7117  IF  AS- "S"  THEN  SYS64738 
7120  GOTO  7080 
7200  RETURN 

8000  REM  ****************************** 

8010  REM  *  *  INDTAST  SYSTEM  • 

8020  REM  ****************************** 

8023  GOSUB  9000  »REM  *  *  *  *  *KDLST I LL I NG  * 

8030  TXTS-"*JB  " INDTASTNING  AF  SYSTEM 


; TAB« 29);  "*  OK!*"; 


";tab<  29);  • 


I"; TAB«  29);  "^EJLIl 


<  F 1 >  -  LAGRE  SYSTEM*" 

<F3>  *  HENTE  SYSTEM*" 

<F3>  -  BRUGE  SYSTEM*" 

<F7>  -  INDTASTE  NYT  SYSTEM*" 

<S>  -  SLUT" 

S-""  THEN  7080 

THEN  GOSUB  10000«  GOTO  7000 

THEN  GOSUB  3400«  GOTO  70p0 

THEN  GOSUB  3600 »GOSUB  6800 » G0SUB3 10 »  GOTO  7000 
THEN  GOSUB  8000 »GOTO  7000 


I";  " HELGARDERING  NR. 
mm  ■*' ;  »NCXT  I 
"■*11 NEMT  I 


AND  A#<  >"2"  THEN  8110 


8033  PRINT  TXTS;  "aH*a*MI  SYSTENETS  NAVN" ;  *  INPUT  SYS 

8040  PRINT  TXTS;  "■*mM**l  ANTAL  HELGARDER  INGER "  M  INFUT  HE 

8030  PRINT  TXTS;  "■*»■■■*  ANTAL  HALVGARDER  INGER  ";*  INFUT  HA 

8060  PRIKIT  TXTS;  'MHHII*  ANTAL  RAEKKER " ;  »  INFUT  RA 

8070  IF  HE-0  THEN  8270 
8075  FOR  J-l  TO  HE 

8080  PRINT  TXTS;  "■*H*Hla; 'HELGARDERIND  NR.";J;'M" 

8090  FOR  1-1  TO  RA « PR  I NTT  "**  **";*NEXT  I 
8100  FOR  1-1  TO  RAJPRINT  "■" ; »NEXT  I 
8105  FOR  I«l  TO  RA 

8110  GET  AS*  IF  AS<>"1"  AND  AS< >"X"  AND  AS< >"2a  THEN  8110 
8120  HES«  J  )  -HES«  J  )  +AS*  PR  INT  AS; 

8130  NEXT  I 

8140  NEXT  J 

8270  IF  HA -O  THEN  8330 
8273  FOR  J-l  TO  HA 

8280  PRINT  TXTS;  "■**«■";  a HALVGARDER  IND  M?.";J;'M" 

8290  FOR  1-1  TO  RAlPRINT  "S  BI'MNEXT  I 
8300  FOR  1-1  TO  RA»PRINT  a*";»NEXT  I 
8303  FOR  1*1  TO  RA 

8310  GET  AS*  IF  ASO'l"  AND  AS<  >"2"  THEN  8310 
8320  HAS«  J)*HA#<  J) ♦ASSPRINT  AS; 

8330  NEXT  I 

8340  NEXT  J 

8330  RETURN 

9000  REM  ****************************** 

9010  REM  *  NULSTIL  SYSTEMVAR  I ABLE  * 

9020  REM  ****************************** 

9030  HA-O »HE-OsRA-O: SYS*" a 

9040  FOR  K* 1  TO  13*HAS< K )*" a »HES« K >-a a »NEXT  K 
9050  RETURN 

10000  REM  ***************************** 

10010  REM  *  SAVE  SYSTEM  * 

10020  REM  ***************************** 

10030  TXTS*  "»J*!  GEMNE  SYSTEM  Ma 

10040  print  TXTs»PRiKrr"aa*M**M*sasa  ilaeg  datakasette 

10050  GET  AS* IFAS-" "THEN  10050 

10058  PRINT  TXTStPRINfT"A*n*****SX19  , - s" 

10060  PRiNiT"aa*a  iveniti" 

10062  PR IN1T "5MM  ' - »" 

10070  OPEN  1,1,1, SYS 
10080  PRINT#1,HE 
10090  PR INT# 1, HA 
10100  PR INT# 1 ,RA 

10110  IF  HE< )0  THEN  FOR  1-1  TO  HE » PR INT# 1 ,HE#<  I ) »NCXT  I 
10120  IF  HA<  >0  THEN  FOR  1*1  TO  HA :  PR  INTT#  1  ,HAS<  I  )  :  NEXT  I 
10130  CLOSE  1 
10140  RETURN 


TO  HE *PR INT# 1 ,HE#<  I) »NEXT  I 
TO  HA :  PR  INT#  1  ,HAS<  I  )*NEXT  I 


Soft  Special  47 


Dobbelt-Snake 


Dette  spil  kræver  to  spillere 
Hver  har  sin  egen  slange, 
som  han/hun  kører  rundt 
med  på  skærmen. 

Undervejs  gælder  det  om  at 
ramme  så  mange  stjerner 


som  mulig,  og  samtidig  und¬ 
gå  at  blive  lukket  inde  at 
modstanderens  slange. 
Dobbelt-Snake  er  et  spil  fuld 
at  fart,  farver,  lyd  og  grafik !□ 
Lars  Christensen 


lø  MODE  ø  /ygHgMEPaSaX 

2ø  SPEED  INK  lø.lø  VB=S3SE£INlk 

25  SYMBOL  255,0.0,118,204,214,102,220 

3ø  INK  ø,ø  INK  1,16,18  INK  2,2  INK  3,24  INK  4, 17= INK  5,ø,2 
4ø  LOCRTE  7,5  PEN  l‘PRINT"S  N  R  K  E" 

5ø  MOVE  120,360  DRRW  54ø,36ø,3DRRU  540, 3øø‘ DRRW  12ø,3øø  DRRW  120,360 
6ø  LOCRTE  4  ,12  PEN  4  PR  I  NT "For  to  sP i  liere" 

7ø  LOCRTE  1,17  PEN  2  ‘  PRINT"  Instruktioner  <  j/n  >" ,'  ‘  PEN  5  PRINT  CHR4K  143!) 

8ø  LOCRTE  1,25  PEN  3  PRINT  TRB<  5>;  CHR*<164  >;  *'  by  LC-Soft.  " 

9ø  GOSUB  46ø 

løø  IF  x$=“.i"  OR  x*="y“  THEN  GOSUB  470 
110  INK  ø,ø ‘INK  1,16, 18 ‘INK  2, 2 ‘INK  3, 24 ‘INK  4,7 
12ø  SPEED  INK  7,7‘Pointl=ø‘Point2=ø 
130  FOR  sP  i  l  =  1  TO  5 
140  MODE  ø 

150  FOR  x=l  TO  20 : PLOT  RND*59ø+2ø,RND*36ø+2ø, 1 ‘DRRWR  -4,0‘DRRWR  4,4‘DRRWR  4,-4‘D 
RRWR  -4,-6= DRRWR  -4,6  NEXT 

160  MOVE  ø,ø  DRRW  639, 0,2 ‘DRRW  639, 399  DRRW  0,399 ‘DRRW  0,0 

17ø  xl=5ø ‘¥1*199  =  x2=579 >y 2*199=  xretnin9l=4  =  yretnin9l=ø  ‘  xre tnin92=-4  =  yretniin92=ø 
18ø  WHILE  INKEYSO" "  ‘NEND 
190  EVERY  5  GOSUB  400 
200  DI  1  xl2*xf  L+xretni  n9l  ‘  y  12=y  l+yretnin9l  ‘  x22=x2+xretni  n92 1  y22=y2+yretni n92  ‘  test  1 
*TEST< x 1 2 , y 1 2  > ■ test2=TEST< x22 ,  y  22  > 

21ø  IF  testl*l  THEN  Pointl=Pointl+3 ; SOUND  1, løø, 10 
220  IF  test2*l  THEN  Point2=Poi nt2+3 ‘ SOUND  2,2øø,lø 

230  IF  testi >1  THEN  SOUND  2, 2øø, 50 ' Point2=Point2+lø  GOTO  28ø  ^*4 

240  IF  test2>l  THEN  SOUND  1, 100,50 ‘Point l=Point 1+10 ‘GOTO  28ø  /L  s* 

250  MOVE  xl,*l  DRRW  xl2,y  12,3 ‘MOVE  x2,y2‘DRRW  x22,y22, 4 

26ø  E I ‘ x 1 *x 1 2  =  *  1 ** 1 2 ‘ x2*x22 ‘ y  2*y 22  v  €  Ær 

270  GOTO  2øø 

280  NEXT  sPil  " 

29ø  MODE  1 

3øø  IF  Point  1  >=Point2  THEN  INK  2,24,2  ELSE  INK  2,24 

310  IF  Point2>=Pointl  THEN  INK  3,7,13  ELSE  INK  3,7  jT  f  >/  Jr 

320  PEN  2‘PRINT"  SPiUer  1  fik  ";Pointli"  Points" 

330  PEN  3 ‘PRINT"  SPitler  2  fik  ";Point2.‘"  Points" 

340  INK  1,13  S 

350  PEN  1 ‘PRINT  PRINT  PRINT"  Nyt  sPil  (j/'n)  ?"  IfføOrl  1  -J 

360  GOSUB  460  W£L"rv/  H 

370  IF  x*="y"  OR  x*="J"  THEN  GOTO  1 10  T|  (M 

380  IF  x*="n"  THEN  END  \\  fM 

390  GOTO  360  M  \ 

4øø  tast*=INKEY*= IF  tast**""  THEN  RETURN  '  \ 

410  IF  tast*="z"  THEN  t=xretnin9l  ‘ xretnin9l*-yretnin9l  =yretnin9l*t  ' 

420  IF  tast*="x"  THEN  t=xretnin91  ‘  xretnin9l*yretnin9l  ‘  yretnin9l=-t 
430  IF  tast**","  THEN  t=xretnin92 ‘ xretnin92=-yretnin92‘ yretnin92=t  IM 

44ø  IF  tast**"."  THEN  t*xretnin92‘ xretnin92*yretnin92 ‘ yretnin92=-t  JtA 

450  RETURN 

46ø  x*=""‘ WHILE  x*=" " ‘ x*=LOWER*< INKEY*  > ‘ WEND ‘ RETURN  f  VI 

47ø  INK  2,13  X 

430  MODE  1  /  II 

490  PEN  1 ‘PRINT  PRINT ‘PRINT  TRB<15>i"S  N  R  K  E"  “ 

5øø  PRINTPEN  2 ‘ PRINT  TRB<  6  >"Sty  rer-taster  ‘"PRINT 

510  PRINT  TR6<  6  >"SP i l ler  1  >  '"i ‘PEN  3‘ PRINT"z" ; = PEN  2 ‘PRINT"'  o9  '  " ,  PEN  3‘PRIN 
T"x"i  PEN  2 ‘PRINT"' " 

520  PRINT  TftB(  6  )"SP  i  l  ler  2  ‘  '"i  PEN  3‘  PRINT"<  "  i  ■■  PEN  2  PRINT"'  o9  '  "  r  ■  PEN  3‘PRIN 
T" >" ,  PEN  2  PRINT"' " 

530  PRINTPRINT  TRB<6>“'z'  o9  '<'  til  venstre." 

54ø  PRINT  TRBC  6  >;  " '  x'  09  '  >'  til  h";CHR*(255);  "Jre.  " 

550  PRINTPRINT  TRB< 6 »"Stjernerne  9 i ver  "i  PEN  3  PRINT"3" ;  PEN  2‘PRINT"  Points" 
56ø  PRINT  TR8(6VHvis  man  rammer  kanten  eller" 

57ø  PRINT  TR8<  6  )"en  af  slan9erne  9  i  ver  det." 

580  PRINT  TRB>:  6 '‘"modstanderen  "i  PEN  3  =  PRINT" lø";  PEN  2‘PRINT"  Points" 


PEN  3  PR IH 
•PEN  3‘PRIN 


590  PR I NT  PR I NT  PR I NT 
6øø  PR I NT  PR I NT ‘PRINT 
610  WHILE  INKEY*< >"  " 


PEN  1  PRINT  TRB< 12)"G  0  D 
PEN  3  =  PR  INT  TRB<  1 5  >  ‘  "  Try  k 
WEND  RETURN 


;  PEN  2 ‘PRINT"  Points" 
K  R  M  P  '  1  " 

CsPaceV 


48  Soft  Special 


Luk  Rummet 


Dette  program  til  VIC-20 
kræver  ingen  RAm-udvidel- 
ser.  Det  er  et  gammelt  spil,  og 
mange  nikker  nok  genken¬ 
dende,  fordi  de  har  fremstillet 
det  engang  i  en  af  landets 
sløjdsale. 

Det  gælder  i  korte  træk  om  at 
lukke  mm  ved  hjælp  al  ter¬ 


ningkast  .  Jo  flere  mm  man  får 
lukket,  desto  færre  minus¬ 
points  får  man,  og  du  lever 
længere. 

Programmet  husker  "rekor¬ 
den''  som  det  højst  opnåede 
antal  slag.n 

Bjarne  Malmgren 


ø  REM##*#*******#***# 

1  REM*#  LUK  RUMMET  ** 

2  REM*###*####*##*###. 

4  REM  COPYRIGHT  1984. 

5  REM  BJfiRNE  M8LM0PEN. 

7  PR  I  NT "  !"  U=36876  POKE 36879  -110  G0SUB7000  G0SUB9øøø 

8  G0SUB7000 

9  S«ø  p»ø  Qbø  pp=ø : QQkØ  SS-ø  FORM*:  1 T07  P0KE81 69*8 . 32  NEXT  G0SUB7000 
lø  G0SUB7000  PRINT "WD , — \  ^  r- s  ^  r- i 

11  PRINT"  I  II  II  II  II  II  II  I" 

12  PRINT"  I  II  II  II  II  II  II  I" 

13  PRINT"  I  II  II  II  II  II  II  I" 

14  PRINT"  Il  I  12  I  13  I  14  I  13  I  16  I  17  I" 

13  PRINT"  w  w  w  w  w  w  w 

30  PRINT"«"  T< 1 )«INT<RND( 1 >*6#1 > 

31  T<2)»INT(RND< 1 )*6+l ) 

52  FQRR-1TQ7  P0KE8169+0,32:NEXT 
93  PRINT  "«CCrørøWia  ■** 

96  F 0R8* 1  TG 1 øø  NEXT 

98  S-S#l 

99  PRINT"«UWW«rø  SL8G  "P"P0INT  ■"  PRINT 

1 øø  ONT  < 1 > GOSUB 1 øøøø , 1 øø 1 ø • 1 0020 , 1 0030 , 1 øø4ø . 1 øø5ø 
103  PR  I  NT "  TTMsTbTéMsTiW/  I L  DU  LUKKE  WKMHm  ET  RUM  T8ST  SI  ■WiTsTsTsWiW 
106  PRINT 

110  ONT < 2 ) GOSUB 1 0000 , løølø, 10020- 10030,10040. 10030 
113  PRINT"TT7AWjWsTiW/IL  DU  LUKKE  ’iTsWsWsTsW  TO  RUM  T8ST  3CRTlTsTsT«txtsW 

120  GETAS  IFAf*" 1 "THEN123 

121  I F  8f * " 2 " THEN 1 30 

122  IFR$-CHR$(134)THEN8000 

1 23  I FØf-CHR* <1 33 ) THEN 1 30 

124  00T0120 

123  IFPEEK(77884-3*<T<2>4-T<  1 )  )  j*48-*-T<  1  >*T<2)THEN15ø 

126  I FPEEK < 7788+3ST C  1 > )«48*T< 1 )RNDPEEK( ?788+3*T(2> >»48+T<2>THEN152 

127  G0T0200 

1 30  I  FPEEK  <  7788+34T  <  1 )  )  *48+T  (  1 )  RNDPEEK  (  77 88+30T  <  2  > >  »48+T  <  2  )  THEN  1 32 

131  I  FPEEK  <  7788-43*  <  T  <2)+T(l)>  )*48+T  <  1  >+T<2> THEN 150 

132  00T0200 

130  P0KE77884.3*<T<2)4-T<  1 )  )  ,  32  OOTOløøØ 
132  P0KE7788+3*T <  1 ) ,  32  =  P0KE7788+3*T<2) ,  32  GOTO  1000 

200  F0RB-1T07  Q-PEEK<7788+3»B> 

201  QQ»QQ+QW  <  Q<>32 )  -48*  <  0032 > 

202  NEXTB 

203  P-P+QQ  IFQQ-ØTHENP*P4-T(1)#T<2) 

204  SS-SS+S  IFPO44THENQ0T0300 
203  QQ-ø  SS-0 
206  IFSS>RTHENR«SS 
210  GOTOlø 

500  PRINT " irøCKtDCimC  " 

301  PRINT"«røWirorø  SLRO  REK0RD«"R,,1I  " 

302  I FSS>RTHENR»SS 

303  F0RR-1T07  RERDK  P0KE388894-R,  1  P0KE8 1 69*8 , K  FQRB*1T020  NEXT 

304  P0KEW4-2 ,13  POKEW ,  2 1  ø-3*A  NEXT  RESTORE  FORB«  1 T030  POKEW+2 ,  ø  POKEW ,  ø 
303  P0KE8176, 49 
306  OETRi  IFRf«CHRf(133)THEN9 
507  I FRf *CHRf  C 1 34 ) THEN8000 
310  00T0306 

løøø  F0RR-1T07  RERDK  P0KE38889+R, 1  P0KE8169*fi.K  NEXT  RESTORE 

1001  P0KE8176, 53 

1 002  OETRf  I FRf-CHR* (136) THEN30 

1003  IFR$-CHR*<134)THEN8000 

1004  GOTO 100? 

7000  POKEW+2 .13  FORA« 1 TO 1 0  POKEW , 223 : NEXT  POKEW+2 ' 0  POKEW , ø  RETURN 
8000  PR  I  NT "  mWiTiTT  RK  FOR  SPILLET"  PRINT"IWiW>EKORD  "R  PRINT  PRINT  END 
0000  eRlNT"."3a  ••****•«»•**•«#•  *•  LUK  RUMMET  »*  **#####**##♦#*♦* 

9001  PRINT"")  I  DETTE  SPIL  SKAL. DUMED  TERNINGEKfiST  LUKKE" 

9002  PRINT"!  SRR  MRNGE  RUM  SOM  MULIGT.  DU  K8N  ENTEN  BRUGE  SUMMEN  RF  ØJNENE" 

9003  PRINT"!  -OG  LUKKE  EET  RUM  -  ELLER  BRUGE  HVER  TERNING  FOR  SIG 

9004  PRINT"!  -  00  LUKKE  TO  RUM  -  HVIS  DU  EFTER  ET  KRST  IKKE  KRN  LUKKE  NOGET  " 

9003  PRINT"-FUM,  FRRR  DU  SUMMEN  RFTRLLENE  I  DE  R8BNE  RUMSOM  .STRAFPOINTS. 

9006  PRINT"-PLL?  RUM  LUKKET  GIVER  ET  EKSTRA  SLAG-  DER  REGNES  SOM  PLUSPOINTS  " 

9007  PRINT"T5PILLET  SLUT  VED  -45  " 

9008  FORA« 1 T07  RERDK  P0KE38889+A , 1 : P0KE8 1 69+A , K  NEXT  RESTORE 

9009  P0KE81 76, 49 

9100  GETR$  IFRS*CHR$<;  133)THENPRINT"!"  -  G0SUB7000  GOT  09200 

9101  00T09100 

9200  PR I NT 'TU  ****«|i**********  ♦*  LUK  RUMMET  #*  ##**«***#**##*** 

9201  PRINT"!  VIDERE  *  F1 


9202  PRINT"! 

9203  PRINT"! 


NVT  KRST 
SLUT 


9203  GETRf  IFA$*CHR*< 1 33 ) T HENPR I NT " 73"  RETURN 

9206  IFAf-CHR$<134)THEN8øøø 

9207  G0T09^05 

9300  DRTA20,1, 19,20,32,6-32 


VIC 

20 

g 

10000 

PRINT" 

f - -s  " 

løøøl 

PRINT" 

1  1" 

10002 

PRINT" 

1  •  1" 

løøø3 

PRINT" 

1  1" 

løøø4 

PRINT" 

' - * " 

10005 

RETURN 

løølø 

PRINT" 

, - , " 

løøll 

PRINT" 

1  •  1" 

10012 

PRINT" 

1  1" 

10013 

PRINT" 

I«  1" 

10014 

PRINT" 

S - 

10013 

RETURN 

løø2ø 

PRINT" 

, - * " 

løø21 

PRINT" 

1  •  1" 

10022 

PRINT" 

i  •  r 

10023 

PRINT" 

i«  r 

10024 

PRINT" 

' - ** 

10025 

RETURN 

10030 

PRINT" 

< - S*’ 

10031 

PRINT" 

!•  •  1" 

10032 

PRINT" 

1  1" 

10033 

PRINT" 

1#  •  1 " 

10034 

PRINT" 

' - 

10035 

RETURN 

løø4ø 

PRINT" 

/ - v" 

10041 

PRINT" 

I«  •  1" 

10042 

PRINT " 

10  1" 

1004? 

PRINT" 

1*  or 

10044 

PPI NT" 

' - 

10045 

RETURN 

10050 

PRINT" 

, - . " 

10051 

PRINT" 

>•  or 

10052 

PRINT" 

•  or 

10053 

PRINT" 

I«  #  1" 

10054 

PRINT" 

' - f  •’ 

RETURN 
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Debug 


I  vort  tørste  nummer  af  "Soft", 
der  udkom  til  Jul,  fik  vi  besøg 
af  nogle  sætternisser,  der  for¬ 
lystede  sig  lidt  på  siderne. 
Værst  gik  det  ud  over  Cosmic 
Changa,  hvor  halvdelen  af 
listningen  faldt  ud.  Den  kom¬ 
mer  her  i  fuld  længde. 


Cosmic  Changa 

0  PRINT ".7* 

1  FORK “54272T054296  POKEK , M 

2  11=255  L«  129 

3  P0KE54285, 5 

4  P0KE54277, 10  P0KE54284, 11 

5  PR  I  NT  "KE  VS  **PR  I  NT  "2= VENSTRE  OP"  PvINT"X=V£NSTRE"  PR 1N1"C= VENSTRE  NED" 

6  PRINT '‘V=NEDM  PRINT"»1«0P"  PRINT”/  »HØJRE  NED"  PRINT".  »HØJRE"  PRINT'V=HØJRE  0P“ 

7  PRINT"RNV  KEV  TO  C0NT1N0E” 

8  IFPEEKa97.)«64THEN8 

lø  PR  I  NT  H.7‘  POKE53280/0  P0KE53281/0 
2ø  8=53248 

30  POKER+2 1/15  POKEfl+40 , 1  POKER*  39. 7  POKEh+41 ,9  POKER+42. 1 
4ø  P0KE2040 ,11  P0KE204 1,13  PUKE2042 ,14  PUKE2043 , 1 5 
50  F0RK-ØT062  RERDB  P0KE7ø4+k,B  NEXT 

60  DRTR128, 24, 1,96.24,6. 112,60. 14, 60 . 6ø, 68 . 30, 60, 120.31 , 126,248, 15.255,240 

70  DRTR7, 129/224,7,66/224,63.36.252/255/24/255.63,24,252/7,36/224,7,66/224 

80  DRTR15, 255, 240, 31. 126,248,30,60. 12ø.6ø, 60.60. 1 12.60. 14, 96. 24, 6, 128, 24 . 1 

9ø  POKER ,128  POKER* 1,128 

100  F0RK-ØT04STEP3  POKEK+832.24  NEXT 

110  F0RK-ØT028  RERDB  P0KE896+K.B  NEXT 

120  DRTRØ, 60, 0,0/255/0, 1,195, 128,3. 129, 192,3, 129. 192.3, 129. 192,3, 129, 192 

130  DRTR1, 195, 128,0,255/0/0/60 

140  F0RK«ØT062  RERDB  POKEK+960, B  NEXT 

150  DRTR137, 17,34,0,0,0,36, 146.72,0,0/0/ 137, 85, 36, 32, 0 ■ 8, 2, 186, 128, 136,0,36 
160  DRTR36. 0, 136, 10,0, 160, 1 70, ø, 1 70, 10,0, 160.34,0, 136, 136,0, 34,2, 186, 128 
170  DRTR32.ø,8, 137, 185,66,0,0.0,36, 136. 72,0. 0, 0, 137, 17, 36 
200  POKER+39,7  P0KE54278.1  P0KE54296.15  P=-l  F=1  B=0  C«5 

300  P0KER+6.B  POKER* 7,05 

301  POKER+4 1 , RND  < 1 > • 1 5+ 1  POKER+2 , 0  P0KE54283 , 0  P0KE54288 , 2  P0KE54283 , 1 29 

302  IFP-OTHENO-O+10  F«F+.5  IFF>13THENF«13 
305  P-P+l  PRINT***'  PRINTSPCOD-POINI-P-  - 

3 1 0  POKER*  7 , 0  POKER+6 , ø  R« I NT  <  RND  < 1 >  *8  > ♦ 1  QNHOOT0500 , 700 , 7 1 0 . 720 , 730 . 740 , 756 , 768 
500  B=0  C =6  Z«E  x=F 

510  0«PEEK(197)‘  IF0-12THENP0KE54276.0  P0KE54273,M  P0KE54276.L  GOTOIØØØ 

520  IFQ-23THENP0KE54276, ø  P0KE54273 . M  P0KE54276 , L  G0T02000 

530  IF0-20THENP0KE54276 , 0  P0KE54273 , M  P0KE54276 , L  GO T 03000 

540  IFQ=31 TMENP0KE54276, 0  P0KE54273 . M  P0KE54276, L  G0T04000 

550  IF0-36THENP0KE54276.0  P0KE54273.R  P0KE54276,L  G0T05008 

560  IF0-47THENP0KE54276, 0  P0KE54273, M  P0KE54276, L  G0T06800 

570  IF0-44THENP0KE54276, 0  P0KE54273. M  P0KE54776 . L • G0Tu7øøø 

580  IFQ-55THENP0KE54276, ø  P0KE54273, R  P0KE54276.L • G0T08080 

590  B-B+X  OC+Z  POKER+4, B  POKER+5, C 

600  I FC*5> 1 28HNDC- 1 5< 1 28RNDB*  J ø> 1 28HNDB- 1 ø< 1 28THEN9000 
610  G0T0510 

700  C«133  B»0  X=F  2*0  G0T0510 
710  0255  B«5  X»F  Z«-F  G0T0510 
720  0  255  B-128  Z=-F  X=0  G0T0510 
730  C-255  B=25ø  X— F  Z«-F  G0T051 0 
740  0133  B-255  X=-F  Z«0  G0T05* 0 
750  08  B«255  X— F  Z*F  G0T0518 
760  B=128  OØ  X»ø  Z«F  G0T0510 

1000  D«  1 36  FORK«  1 30T040STEP-8  D»D-8  POKER**;,  D  P0KER*3,  k  B=B*X  OC+Z  P0KER*4 ,  B 
lølø  P0KER+5 . C  I F D* 1 5>BRNDD-20<BRNDK+5X  RNDK- 1 5<C THEN300 
1020  I FC*5> 1 28RNDC- 1 5< 1 28RNDB* 1 ø> 1 28RNDB- 1 ø< 1 28THEN9800 
1030  NEXT  GOT0510 

2000  K«138  F0RD=128T02øSTEP-8  POKER+2, D  POKEH+3, K  B=B*X  OOZ  POKER+4, B 
2010  POKER+5. C  IFD+10>BRNDD-20<BRNDK+3XRNDK-1ø<lTHFN3øØ 
2020  I FC*5> 1 28RNDC- 1 5< 1 28RNDB*2ø> 1 28RNDB-2ø< 1 28THEN9000 
2030  NEXT  G0T0510 

3800  D= 1 26  FORK  *  1 50T0250S1 EPb  D«D-b  POKER+2 . D  POKER+3 , K  B=fe*X  OC*Z  POKER+4 . B 
30 1 0  POKER+5 ,  C  I FD*  1 0>BRNDB-2ø<BRNPK  ♦  1 ØXRNDK- 1 5<l  THEN300 
3020  I FC*5> 1 288NDO 1 5< 1 28HNDB* 1 ø> 1 28RNDB- 1 0< 1 28THEN9000 
3030  NØ<T  GOT0510 

4øøø  D«  136  FORK«  150T0258STEP8  POKER+2, D  POKEM+3, K  B=B*X  c»C+Z  POKER+4, B 
4010  POKER+5, C  IFD-2>BRNDD-løCBRNDK*lø>CRNDK-2ø<CTHEN3øø 
4020  I FC+5> 1 28RNDC- 1 5< 1 28RNDB+ 1 0> 1 28RNDB- 1 ø< l 28THEN9008 
4030  NEXT  G0T0510 

5000  D« 1 36  FORK« 1 28T045S  TEP-8  POKER+2 .  D  POK  ER+3 , K  B=B+X  C*C+Z  POKER+4 , B 
5010  POKER+5, C'  IFD-5>BrNDt.'- lR^BRNDK  +5>CRNDK- l5<CTRENdøø 
5020  I FC+5> 1 28RNDC - 1 5< 1 28RNDB+ 1 ø> 1 28RNDB- 1 ø< 1 28THEN9øøø 
5038  NEXT  G0T0510 

6000  D«  1 38  FORK  =  1 45T0258STEP8  D»D+b  PuKER+2 ,  D  POKER+3 ,  K  B«B+X  C=C+Z  POKER+4 ,  B 
6010  POKER+5. C  1FD+15^BRNDD-10<BRNDK+15>CMNDK-15<C IHEN308 
6020  I FC+5> 1 288NDC- 1 5< 1 28RNDB+ 1 5> 1 28RNDB- 1 5< 1 28THFN9000 
6030  NEXT  GOT 05 lø 

7800  K  =  1 38  FORD« 1 43T0255S TEPØ  POKER+2 , D  POKEh+3 , K  H=B+X  C«C+Z  POKER+4 , B 
7010  POKER+5. C  IFD+2ø>BRNIiD-15vBRNDk+5>CRNDK-1ø<C1  MEN300 
7ø2ø  I FC+5> 1 28HNDC- l 5< 1 28RNDB+2ø> 1 2RRNDB-2ø< 1 281 HEN9008 
7ø3ø  NEXT  G0T0510 

8800  D«133: FORK« 1 33T045S1 EP-8  D-B+b  POKER+2 , D  POKER+3, K  B=B+X  C*C+Z ; POKEH+4 , B 

8010  POKER+5. C ■ 1FD+152BRNDD- 1 5<  8flN0K+5XRNb<-l5<C I HEN300 

8020  I FC+5> 1 28RNDC- 1 5< 1 28RNDB+2ø> 1 28RNDB-2ø< 128THE N9000 

803ø  NEXT  GO TOS lø 

9000  POKER+23 . 8  POKER+29 . 8 

9005  POKER* 7 .117  POKER+6 . 1 1  7  POKER+4 , ø  P0KE54278 . 255  P0KE54276 ■ ø  P0KE54273,2 
9ø  1  ø  FORK«  1 5T00STEP- .  5  P0kE542  76 ,129  POKEfi+39 .  K  -'OK  »-,5429+.  •  K  -  OK  ER+42,  K 
9015  NEXT 

9020  IFP>HI  THENPRINT"*"  Hl*f  PNlN<TR9<  1 1 1  >'  HIGH"  PRlNTlRB«  31  »“SCORE **Rl 
9030  GETm*  IFR$0"B"  THEN9030 

9040  POKER+2 3, ø  POKER+29 . 0  0=ø  POKER+42 . 1  »*01 020R 


Mange  Commodore  ejere 
fandt  også  ud  af,  at  skattepro¬ 
grammet  var  til  en  Commo¬ 
dore  64,  og  ikke  til  en  Spec¬ 
trum,  som  vort  logo  angav. 
Til  de  skuffede  Spectrum-folk 
har  vi  skyndsomt  modificeret 
programmet  lidt,  så  at  det  og¬ 
så  kører  på  en  Spectrum. 

■  Hvis  du  vil  køre  skattepro¬ 
grammet  på  en  Spectrum 
computer,  foretages  følgende 
ændringer: 

Først  fjernes  alle  POKE  ordrer, 
da  de  kun  styrer  farverne  på 
skærmen.  Tag  derpå  alle  ste¬ 
der,  hvor  der  står  print '  'invers 
hjerter",  og  skift  ordren  til  CLS 
(clear  screen). 

Foran  alle  variabler  sættes 
kommandoen  LET.  Det  gæl¬ 
der  også  for  variabler  i  f.eks. 
linie  5030,  hvor  LET  skal  ind¬ 
føjes  efter  THEN. 

Alle  andre  inverse  tegn  fjer¬ 
nes  i  de  resterende  print  og  in¬ 
put  sætninger,  da  de  kun 
bestemmer  placeringen  på 
skærmen. 

Nu  mangler  du  at  finde  linier¬ 
ne  4080,  5052,  6052,  7092, 
8043,  9043,  10043,  11043, 
13190,  21020.  22160.  23150, 
24250.  24360  og  25200. 

I  disse  linier  står  computeren 
og  venter  på,  at  en  tast  bliver 
trykket.  Her  skriver  du  hver 
gang  LETA$  =  INKEYS.  Lav 
bagetter  en  ny  linie  neden¬ 
under,  hvor  du  skriver  IFA$= 
'THEN  (det  torrige  linjenum¬ 
mer).  □ 
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64  geometri 

I  geometriprogrammet  til 
Commodore  64  slugte  vor 
printer  de  fleste  tal  i  hvert  li¬ 
nienummer.  For  at  bøde  på 
forvirringen  bringer  vi  , 
programmet  igen  med  de  / 
korrekte  linienumre. □  / 


Vigtigt  tip 

■  Vi  lår  ofte  henvendelser  fra 
læsere,  der  ikke  kan  tyde  de 
inverse  tegn  på  Commodore 
programmer. 

I  de  fleste  tilfælde  bruges  dis¬ 
se  tegn  udelukkende  til  at  far¬ 
ve  teksten  eller  printe  den 


pænere  ud  på  skærmen.  De 
kan  derfor  ofte  undværes,  da 
de  ikke  betyder  noget  for  sel¬ 
ve  programmets  kørsel. 
Bemærk  dog,  at  tegnene  in¬ 
verse  hjerter  og  inverse  S  skal 
bmges  altid.  □ 


CURSOR  NED- 


rm  cursor  0P‘ 


CURSOR  HOJRE 


CURSOR  VENSTRE 


CTRL  1 


CTRL  2 


CTRL  3 


CTRL  4 


CTRL  5 


CTRL  6 


CTRL  7 


CTRL  8 


CTRL  9 


CTRL  0‘ 


COMMODORE  4 


COMMODORE  5 


COMMODORE  S 


;XX3  COMMODORE  7 


!SS  COMMODORE  8 


JuU  CLR  TASTEN 


HOME  TASTEN 


I NST  TASTEN 


rim  COMMODORE  1 


COMMODORE  2 


COMMODORE  3 


iø  f$*m  , —  ami  f  aiiii  ■ — nr 

2ø  PRINT":!©!««"  GOSUB 10000  PRINT"  «fl"TAB<  10>Ff ,  "1  1  RtJMFflNG" 

3ø  F,PINT"®*'TAB<  10>Ff , "3  I  FLADE  AREAL" 

40  PPINT"*"TABaØ)F$,"5l  OVERFLADE  AREAL” 

45  PRINT"®" TAB< 10)Ff , "7  I  AFSLUTTE" 

50  GETA*  IFAf=“ "THEN50 
55  I F AS=  "  II"  THEN3000 
60  I FAf * "  9"  THEN2000 

65  IFA*="il"THENPRINTMT*  END 

66  IFAf=”M"THEN7ø 

69  G0T050 

70  Af="M  PRINT"X  GOSUB 1 0000  PRINT"»MMMI"Ff ,  "  1  I  RUMFANG  AF  EN  KUGLE" 

71  PR  I  NT  "UMMMI"Ff  .  "2  I  RUMFANG -AF  EN  CYLINDER" 

72  PRINT"  OMMHIFf,  "3  I  RUMFANG  AF  EN  PYRAMIDE" 

73  PRINT"0»iMMr,frf ,  "4  I  RUMFANG  AF  EN  PVRAMIDESTUB" 

74  PRINT "  »••MPH-Pf ,  "5  I  RUMFANG  AF  EN  KEGLE" 

75  PRINT"OMMMI"F$,"6l  RUMFANG  AF  EN  KEGLESTUB" 

76  PRINT •  l»MtMH"F*,"7l  TILBAGE  TIL  HOVEDMENU" 
bø  GETAf  IPA$=" "THEN30 

9ø  A»ASC( Af >  I FA< 1 330RA> 1 40THENAS =  G0T080 

91  A*A-132  ONAGOTO 100 -2øø. 300 ,2ø  400,500700,80 

løø  INPUT-^UFADIUS  AF  KUGLE  ",R  SV=4*ff*R T3/3  Rf =STRf < R > 

110  PRINT"®  4  «  «  *",R"Kt3" 

120  PR  I  NT  "RUMFANG  *  ",  FQRI»lT09*LEN<Rf ;  PRINT"-";  NEXT  PRINT"  =",SV 
130  PRINT"  3  N  G0SUB20000 

200  I  NPUT  “nWH  ØJ  DE  AF  PYRAMIDE  ",H 

220  I  NPUT  "GRUNDLINIE  V  "!  GY  SV*QX*GV-*H/3  Hf»STRf  <H)  GXf =STRf  (GX>  GYf  *STRf  (GV> 
230  PRINT"®  'XOX,  "r*,GV;  "*",H 

240  PR I NT "RUMFANG  *  ,  FOR I * 1 T03+LEN < Hf ) +LEN ( GXS > +LEN < GYf )  PRINT"-",  NEXT 

245  PRINT"  «",SV 

250  PRINT"  3" 

260  G0SUB20000 

380  INPUT-mBFADIUS  AF  KEGLE  ",R  ^  m  _ 

310  INPUT" IHØJDE  AF  KEGLE  ",H  SV=«*Rt2*H/3  H#*STRf<H>  R*=STRf <R) 

320  PRINT"«  fl  *",P"HT2  *",K  _ _  „„ 

330  PR I NT "RUMFANG  *  ",  FQRI  =  lT07+LEN<Hf >+LEN(Rf >  PRINT"-" ,  NEXT  PRINT  *  ,oV 
340  PRINT"  3" 

350  G0SUB20000 

400  INPUT-rrrøPADIUS  AF  CYLINDER  ";R 
41ø  I NPUT "IHØJDE  AF  CYLINDER  ",H  SV«fl*RT2*H 
420  PRINT" IP'JMFANG  *  ff  ♦  ",R"ll'r2  , H, , SV 

430  GOSUB 20080 

500  INPUT"  mWHØ  JDE  A^  P  YP  AM  IDESTUB  ",H 
510  I NPUT" MØVERS T  GRUNDLINIE  X  ",GX 
520  INPUT-rovERST  GRUNDLINIE  Y  " ,GY 
530  INPUT " GEDERS T  GRUNDLINIE  X  ",NX 
54ø  INPUT" MfEDERST  GRUNDLINIE  V  " , NV 

550  Hf=STRf<H)  GXf-STRf  l'GX>  GYf*STPf  <GV)  NXf=STRf  <NX>  :  NYf*STRf  CNY> 

560  TG*GX*GV  NG=NY*NX  SV=H*«'TG*NG+SQR<TG*NG>>/3 
570  PR I NT " ©DØVE  PST  GRUNDFLADE  *" ;GX, ,ØV ,  "  " ,  TG 
580  PRINT"  SHEDERST  GRUNDFLADE  ■* ; NX; , RV.M»" . NG 

590  PRINT"«  ",H."IH(",TG,"lh,,,NG  "IN  ' _ *111111  'G,  "IH"  NG- "II  " 

600  PPINT"R  =",  F0RI“1TQ1  l+LEN'.Hf .»♦LEN'iGXf  >+LEN*  GYf  •♦LEN'  NYt  •+LEN<NX$  • 

610  PRINT"-",  NEXT  PRINT"  s", SV 
620  PRINT"  3« 

830  G0SUE20000 

7øø  I  NPUT  "  .HWHø  J DE  AF  KEGLESTUB  "  H 
71ø  I NPUT “ MØVERS T  RADIUS  " , TR 
720  INPUT "dJEDERST  RADIUS  "  NR 

730  Hf-STRf  *’H  •  TRf*STPf'TR)  NPf =STRf  <NR>  SV=ff*H*<  NR T2+TR T2* ' NRKTP  • 

735  SVf="fl*'*+Ht-»-"#i'*’,*NP*+"  12*"*TRrf"t2+-'"*NR$+"  +  "*Tf:x4 
740  PRINT"«  " , SVf 

750  RRINT”P  F0RI«lT016^LEN<Hf >-H-EN<NRf >*LEN<TRf>  PRINT"-" ,  NEXT 

760  PR I NT -  =  " ,  SV 

770  PRINT"  3" 

780  G0SUB20000 

2000  Af  =  ** "  PRINT  71«««-  GOSUB løøøø  PRINT  "  Ff ;  "1  I  RPEAL  AF  EN  TPEKANT" 

2084  PPIir  ?»»*MiiI"Ff  ."31  AREAL  AF  EN  PARALLELOGRAM" 

2002  PRINT"i<>MMMrF$;"3l  AREAL  AF  EN  TRAPEZ" 

2003  PRIfr"9MMMI"F*.*7|  AREAL  AF  EN  CIRKEL" 

2005  PPINT"li*iiiMrrf,"8l  TILBAGE  TIL  HOVEDMENU" 

2010  GETAf  I F Af = " " THEN20 1 0 

2820  AaASC 1  Af )  IFA<1 330RA> 140THEN2010 

2ø3ø  A=A-132  0NAG0T02 løø, 2200, 2300, 24øø, 2010- 2ølø- 20 10.2« 

2108  I NPUT " mUHO  JDE  AF  TREKANT  " , H 

2110  I  NPUT  "  M3RUNDL  INI  E  ",  G  SV-HKG/2  Hf =STPf  <  H  >  Gf  »STPf  <  G  ) 

212ø  PRINT”®  ",H, "*",G 

2130  PRINT "AREAL  AF  TREKRNT  «  ",  FøRI=lT01*LEN<Hf >+LEN<Gf )  PRINT"-",  NEXT 
214ø  PRINT"  =" ;SV 

215ø  PRINT"  2* 

2160  G0SUB20000 

2200  INPIJT-.HWHøJDE  AF  PARALLELOGPRM  ",H 

2210  I  NPUT  "  B3RIJNDL I N I E  ";G  SV»H*G  Ht=$TRf-H>  Gf=3TRf <G> 

2220  PRINT"MRREAL  AF  PARALLELOGRAM '=”. H G SV 
223ø  G0SUB20000 

2300  INPUT-ncmøJDE  AF  TRAPEZ  ",H 

2310  INPUT"røVEPST  GRUNDLINIE  ";  TG 

2320  I NPUT " IHEDEPST  GRUNDLINIE  " , NG 

2330  SV=H#<T0+NG)/2  Hf=STRf<H)  TGf*STRf(TG)  NGf =STRf <NG> 

2340  PRINT"®  .  ” , H, "*  <";TG; "♦" .NG, ">" 

2350  PRINT "AREAL  AF  TRAPEZ  F0RI=lT07+LEN<Hf )*LEN(TGf )+LEN<NGf>  PRINT"-", 

2360  NEXT  PRINT"  s", SV 

2370  PRINT"  2" 

2380  G0SUB20000 

2400  I  NPUT  "  nOflF  AD  I US  AF  CIRKEL  ",R  SV*tr*RT2 
2410  PRINT"MRPEAL  AF  C«RKEL  «  ff  ♦"R,”||T2  =",SV 
2420  G0SUB20000 

3000  Af  ="  "  PRINT".ia««"  GOSUB  10000  PR  I  NT  "  sfMMMI  F  f  .  "  1  I  OVERFLADE  AF  KUGLE" 
3005  PRINT "  F1MMMI  ."31  OVERFLADE  AF  CYLINDER" 

3ølø  PRHr"*MMMH'Ft,"5l  OVERFLADE  AF  KEGLE" 

3015  PRINT" OVERFLADE  AF  KEGLESTUB" 

3020  PRINT"  v)MPMil"F$,  "8  I  TILBAGE  TIL  HOVEDMENU" 

3025  GETAf  IFAf=" "THEN3025 

3030  A=ASC-:Af)  I  FA<  1 330RA3 1 40THEN3025 

304ø  A=A-132  0NAG0T03100, 3200, 3300, 3400,3025,3025.3025,20 

3100  I  NPUT  "  TrøFAD  I  US  AF  KUGLE  ",R  SV=44ir»Rt2 

3118  PRINT" *P VEPF LADE  =  4  ♦  ir  *",R,"||T2  ^".SV 

3128  G0SUB20008 

3200  INPUT-HBIFADIUS  AF  CVL INDER  ".R 
3218  INPUT "IHøJDE  AF  GIVL INDER  " ,  H  SV=2*fl*RfH 
3.220  PPINT-IOVERFLADE  *  2  ♦  rr  ,  R .  ,  H ,  ,  SV 

3230  G0SUB20000 

3300  INPUT-^HFRDIUS  AF  KEGLE  ",R 
33lø  I  NPUT"  SIDELINIE  "  ,  S  SVxS#ff#R  . 

3320  PR  I  NT "  M3VEPFL  ADE  =",S."*  rr  f",R,"*",$V 
338ø  G0SIJB20000 

3400  I  NPUT  "  riSMøVERST  RADIUS  " ,  TR 

3418  INPUT"»4EDERST  RADIUS  ".NR 

342ø  I NPUT "M3 IDELINIE  ",S  SV*S*ff*<TR+NR> 

3430  Pk  I  NT  "  MOVEPFL  ADE  rr  ®<",  TR;  "+";NR,  "|l>  s".SV 

3,44«  G0SUB20000  f 

1 0000  PR  I  NT  "  : — i  r—  < — ,  m  p—  m  i~— \  -r 

10010  PRINT"  I  tHI  ll-MH  I  H-'  I 

10020  PRINT"  wi_wj  il.  j.  aui 

løø3ø  RETURN 

20000  PR  I  NT "  «®TRY|-  3RETURN1"  F0R'I  =  1T02AØ  NEXT 
2001 0  GETAf  I F Af =CHRf ■.  1 3>TH£NR'JH 
20020  PR  I  NT  ""TT  RYK  RETURN"  FQRI=1T0200  NEXT 
2ø03ø  PPINT"'TTn"  GOT 020900 
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3  DEF  FN  H <X ,Y) = (X+Y+RBS  <X- 

)  )  /2 

5  DEF  FN  UO  =(65536*PEEK  236- 
4+256+PEEK  23673+PEEK  236721  53 

7  DEF  FN  TOaPN  M  (FN  UO  FN  J 

O  > 

9  LET  HS»3 

13  PPPEP  3  BORDER  3  iNr  5  : 

L5 

15  GO  5UB  9333 

23  INPUT  INSTRUKTIONER  (j/N 
?*'  LINE  R*  IF  CODE  R$  =  136  -OP'  I 
ODE  Rf  =74  THEN  GO  SUB  633 

33  RESTORE  233  DIM  R  (  32 ■  f^c 
F  =2  TO  33  STEP  2  RERD  R ( F :  NE 
XT  F 

43  INPUT  "S\  é€fh«<jS9fd-3  ‘1-5 
; LEV  IF  LEU  < 1  OR  LEU>5  THEN  GO 
TO  4.3 

53  LET  U=3  LET  X»4  LET  SC=3 
LET  C  =  -l  LET  G  =  15 
63  PRPEC  3  BORDER  3  INe  5  C 
LS 

73  CIRCLE  238,88,3  CIRCLE  233 

.38,1.5 

83  PLOT  253  113*  DPRU  -5  -5  C 
RRU  -25  3  DRRU  3,-23  DRRU  6,3 
DRRU  24,3-3.3 

93  INK  6  Plot  148 . 133  DRRU  3 
2,3  -3.3  DPRU  -32,3  -3.5  DPR  - 
3,-48  DRRU  f  2 ,3.3.3  DPRU  3  -i 6 
113  INK  4  PLOT  3.119  DPRU  32 
3  DRRU  3,-3  DRRU  -32.3  DRRU  3 
, -3  DPRU  32  3  DRRU  3  -3  DPR 
-32  3  DRRU  3  -3  DRRU  32 , 3  DPR 
U  3 .24 

123  PLOT  a,  119  DRRU  3  -3  DPRu 
8,3  DRRU  3  -8  DRRU  -3  3  DRRU 
0,-8  DRRU  8,3  DRRU  0,-3 
130  PLOT  24,119  DRRU  3  -3  PlO 
T  24, 103  DRRU  0,-8 
;40  INK  2  PLOT  64,43  DRRU  4c 

150  *  POKE  23674 , 0  POKE  2  3673,3 
POKE  23672,3 

170  FOR  X * 1  TO  3  BEEP  .05,50 
PRUSE  5  NEXT  X 
183  PRINT  RT  18,15,  INK  2  B 
193  PRINT  RT  21,3,  INK  5  SCORE 
•*:  PRINT  RT  21,21,  INK  5  HIG* 

203  LET  0*FN  TO;  IF  0)60  ThEn 
GO  TO  903 

210  LET  F  *G- < INKEY  $  =  " 5"  RND  G  O 
) ♦ (INKEYt*"8  RND  G<31< 

220  IF  FoG  THEN  PRINT  RT  18 ,  G 

230  IF  FoG  THEN  PRINT  RT  13, F, 

INK  2, "B"  LET  G *F 

243  IF  INKEV  $  »"Ø"  THEN  GO  SUB  7 

50 

253  IF  SC  >M3  THEN  LET  HSoSB*  LE 
T  U*1 

260  PRINT  RT  21,9,  INK  5 , 5C  PR 
INT  RT  21,26  INK  5,  FLR3H  U  H5 
530  LET  C*C  +  i  IF  C*23-LEU*3  Tm 
EN  LET  C =3  PRINT  RT  RiX) ,X,  PRP 
ER  0;  " 

510  IF  C=0  then  LET  X*INT  =PND* 
15)  +1  LET  X  *X  *2  PRINT  RT  R(X 

X,  ”R" 

520  GO  TO  233 

750  IF  G  o  X  THEN  BEEP  .5,23  RE 
TURN 

763  FOR  C *7  TO  0  STEP  -1  PPINT 
RT  R ( X ) , X*  INK  C, "R"  BEEP  .35 
C ♦ INT  (RND*7i +1  NEXT  C 
770  PRINT  RT  R(X),X,  PRPEP  3 

780  LET  SCaSC+LEU  RETURN 
300  INK  6  CLS  PRINT 

■■■■■■‘''"DU  BEFINDER  DIG 

I  EN  BLINDGYDE . I  BRONX  ‘NEu  O 

RK. . EN  HR55E  ” "CRR5Y  5  R 

ER  EFTERDIG.  ”  "NRRR  DERES  RN3IC-T 

ER  DUKKER  FPEH  . FRR  SKYGGERNE 

SKRL  DU  SKYDE' ' ' " 

305  PRINT  DU  FLYTTER  DIN  PI5 
TOL  B  HED"  ' 5  &  8  OG  Sk y DER  ^E 
D  0"  -BEHRERK  1  HINUTS  SPILLET 

ID .  TRYK  ENTER  FOR  st 

RRT" 

820  LET  R*=INKEY*  IF  CODE  R*=i 
3  THEN  RETURN 
830  GO  TO  323 

900  FOR  X  =3  TO  21  PR  IN'*'  RT  ,  c 
DUER  1.  INK.  7. 


910  PRINT  RT  19,11,  FLRSH  1  PR 
PER  7,  INK  4  GRME  OUER" 

923  PRINT  RT  21,3,  PRPER  7  SCO 
RE  "iSC 

930  PRINT  RT  21,21,  PRPER  7.  ->I 
GH  " ; HS 

943  INPUT  NYT  SPIL  (J/N‘  ' 

INE  R*  IF  CODE  R*=110  OR  CODE  R 
$  =  72  THEN  STOP 
950  FLRSH  0  GO  TO  40 
2003  DRTR  6,3  16,14,13.14.17  13 
3, 7, 8, 5, 6, 7, 7 

9000  RESTORE  9020  FOR  X=USR  * 
TO  USR  "B"+7  RERD  R  POKE  «  R 
NEXT  X 
9010  RETURN 

9020  DRTR  233  16.146,16,32,56.13 
,3, 124 

9030  DRTR  3,0  16,16,56,56  254  25 


Duel  i  Bronx 


■  Bronx  er  et  trist  og  otte 
skæbnesvangert  kvarter  i 
New  York.  hvilket  du  hurtigt 
tinder  ud  at,  når  du  torsøger 
dig  med  dette  Spectrum  spil. 

I  bedste  amerikanerstil  skal 
du  torsøge  at  undgå  at  blive 


ramt  at  skud.  Hvordan,  -  ja 
selvtølgelig  ved  at  skyde  tør 
dine  modstandere. 

"Duel  i  Bronx"  har  en  tin  gra¬ 
fik,  og  selve  spillet  forklarer 
selv,  hvordan  du  skal  torhol¬ 
de  sig. □  Niels  K.  Obergaard 


52  Sott  Special 


1  REM  ORMEN 

0  CHRISTIAN  BØMLER 

2  LET  h  =  C  CPEEK  655353*2553  +PEEK 

3  LET  tj=0 

10  INK  0:  BORDER  4:  PAPER  4:  CLS 
P=0:  LET  d=0 :  LET  a=15:  LET  1=3 
20  POKE  USR  "o "+7, 129 


65528 


LET 


21  POKE  USR  "o "+5, BIN 
100  LET  a=a+C INKEY$="8' 


POKE  USR  "o", 12 

01100110 
AND  a<>293-C INK 


EY«="5"  AND  a 003  :  IF  SCREEN«  C4,a3  =  "*" 
THEN  LET  d=l 

101  IF  SCREEN«  C4,a3="~"  THEN  LET  d=2 

102  POKE  23692,255 

105  PRINT  AT  4, a  j  INK  7;"o" 

106  IF  d=l  THEN  GO  TO  1000 

107  IF  d=2  THEN  LET  p=p+10:  BEEP  .01,5 
0:  IF  h  <P  AND  tj=0  THEN  FOR  n  =  l  TO  10: 


.01,50:  NEXT 
D1M  a«C303 
d=0 

a«C INT 
a«C INT 
a«C INT 
a«C INT 


LET  tj=l 


BEEP 
108 

109 

110 
111 
112 
113 
200 
300 

1000  IF  h>P 
er  paa  : "  ;h 

1001  FOR  n=l  TO  10:  PRINT  AT  4,aj  INK  7j 
"o"  :  BEEP  .05,0:  PRINT  AT  4,aJ"*";:  BEEP 

.05,0:  NEXT  n:  PRINT  AT  4 , a  ;  "o "  ;CHR«  8; 
OUER  1 

1010  LET  1=1-1 


LET 
LET 
LET 
LET 
LET 
PRINT 
GO  TO 


CRND*303+13="*" 
CRND*303+13="*" 
CRND*303+13="*" 
CRND^303+1 3  =  "~" 

AT  21 , 0  J ’ a« 

100 

THEN  PRINT  AT  0, 0  ;  "Rekorden 


1015  PRINT  AT  10,  1  J  "Du  har  **  J  l  ;  -  Liv  til 
bage  " 

1016  PRINT  "  Du  har  "Lp;”  points" 

1017  PRINT  FLASH  l;"Tryk  paa  0" 

1018  IF  LOØ  THEN  GO  TO  1023 

1019  PRINT  AT  9, ØJ  FLASH  lJ'GAME  OUER": 
PRINT  AT  12,0;  FLASH  lj  BRIGHT  lj"tryk  p 
aa  a  for  at  begynde  paa  et  nyt  spil" 

1020  IF  h  <p  THEN  LET  h=P :  PRINT  AT  20,0 
5 "Du  slog  rekorden  med  "jhj"  Points":  GO 

SUB  2000 

1021  LET  n  =  INT  CRND*203  :  BEEP  .  l,n:  BEEP 
. 1 , n-1  :  BEEP  .  l,n:  BEEP  .  1 , -n  :  BEEP  . 1, 

-n-1  :  BEEP  .  1 ,  -n  :  IF  PEEK  23560OC0DE  "a 
"  AND  PEEK  23560  O  CODE  "A"  THEN  GO  TO  1 
021:  RESTORE  :  GO  TO  1021 

1022  RUN 

1023  BEEP  .1,0:  BEEP  .1,-1:  BEEP  .1,1:  B 
EEP  .1,0:  BEEP  .1,-1:  BEEP  .1,-2 

1024  IF  PEEK  23560  O  CODE  "0"  THEN  GO  TO 
1023 

1040  FOR  n=l  TO  10:  BEEP  .1,-10:  BEEP  .1 

, 10:  NEXT  n 

1050  CLS 

1055  LET  d=0 

1060  GO  TO  100 

2000  LET  k  =ø 
2005  LET  o =p 

2010  IF  o>255  THEN  LET  o=o-255:  LET  k=k 
+1:  GO  TO  2010 

2020  POKE  65535, k:  POKE  65528,0 
2030  GO  TO  1021 
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1  LET  h=ø 

2  PRINT  AT  19, 1 5  J ' I ” 

J  LET  (=7 

“  LET  d=ø 

5  POKE  USR  0001 1100 

6  LET  t=0 

7  LET  4-0 

8  PAPER  0:  INK  7:  BORDER  0:  INUERSE  0 
FLASH  0:  8RIGHT  0:  CLS 

11  LET  u=ø 

100  CLS  :  BEEP  .0005,00 

101  LET  t=t  +  l 

102  LET  u=u  +  C  C  4=  1  3- C  4=2 3  3*6 :  LET  l=f+(C 
!NKEY*="5“3-C INKEYS="8" 3  3*5 

103  PRINT  AT  19, 15;” I " 

104  PLOT  0,66:  DRAU  255,0:  BEEP  .0002,5 


Du  sidder  i  den  nye  "Spec- 
trum-racer"  med  den  berøm¬ 
te  16/48  K  motor.  Styregrejer¬ 
ne  ligger  i  tastaturet. 

Du  drejer  rattet  til  venstre  ved 
at  trykke  tallet  5  og  til  højre 
med  tallet  8. 

Spectmm-raceren  skal  køres 
hurtigst  muligt  uden  at  ram¬ 
me  rabatten. 

'  'Gentlemen,  start  Your  Engi- 
nes!''D 

Christian  Barnier 


105  PLOT  135+  C  1*1.5), 16 :  DRAU  -2ø+v,50 

106  PLOT  90  +  C 1  *  1 . 5) , 16 :  DRAU  2ø+u,5ø 

107  IF  RND<. 3  THEN  LET  4  =  INT  CRND*33 

108  BEEP  .0005,60 

109  IF  u>64  THEN  LET  4=2 

110  IF  y <-64  THEN  LET  4=1 

111  LET  l=l+Cu'10) 

120  FOR  n  =  122  TO  126:  IF  POINT  tr>, 233=0 
THEN  NEXT  n 

130  IF  n  0 127  THEN  GO  TO  1000 
200  GO  TO  løø 

1000  IF  h  <t  THEN  LET  h=l :  PRINT  AT  0,0; 
"Du  h 4+  sl44et  rekorden" 

1010  PRINT  AT  l,0;"du  kørte  ";t;"  sec.  p 
44  den  tur":  PRINT  "tryk  P44  ø  lor  et  ny 
t  spil":  PRINT  AT  10,5;  FLASH  1  i "BANG.  O 
Li  ER  DØO":  IF  INKEY*<>"0"  THEN  GO  TO  10 
10 

1020  GO  TO  2 


Tegn  abonnement  på  SOFT. 


SOFT  Special  er  blevet  en  så  stor  succes  fra  starten,  at 
vi  har  besluttet  at  udgive  Danmarks  eneste  program¬ 
blad  hver  anden  måned. 

Det  vil  sige,  at  SOFT  Special  udkommer  igen,  i  april, 
juni,  august,  oktober,  december  o.s.v. 


Hvis  du  vil  undgå,  at  SOFT  er  udsolgt  hos  din  blad¬ 
handler,  er  det  en  god  idé  at  tegne  abonnement.  6 
numre  af  SOFT  Special  koster  1 53  kroner,  og  du  får 
bladene  portofrit  tilsendt,  Nåede  du  ikke  at  købe  før¬ 
ste  nummer  af  SOFT,  kan  du  bestille  bladet  på  forla¬ 
get.  Prisen  er  kr,  27,85. 


Ring  og  bestil  abonnement  på  telefon  01-11  28  33  el 
ler  indbetal  straks  kr.  153  på  postgirokonto  940  60  77 


Næste  nummer  al  SOFT  udkommer  den  25.  april 
1985. 
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ve«,  hvordan 
«egget  lyder 


r' 


..'afiske 

^,1  kan  vise 
iyd  på  en  TV- 
.»dn  fungere  som  spek- 
,./zer.  forvandle  lyd  til  grafik 
eller  uaSkrive  noder  efter  den  musik, 
der  bliver  spillet. 

Byg  en  aktiv  subwooler  med  fornem¬ 
me  data  Konstruktionen  rummer  en 
10"  Vifa  bas  og  en  75  watt  Hi-Fi  for¬ 
stærker  med  Dual  Drive.  Subwoote- 
en  kan  bygges  for  ca.  1000  kroner. 

Sansui  har  bygget  en  af  markedets 
mest  avancerede  kassettebåndop¬ 
tagere.  D-W10  har  to  indbyggede 
decks  og  et  opbud  af  computerstyre¬ 
de  finesser,  som  vi  aldrig  har  set  ma¬ 
ge  til.  Læs  testen  i  det  nye  nummer  af 
»ny  elektronik«. 

AM  Kemi  er  bedst  kendt  for  sin  kos¬ 


ronik 


SfYENDENOE  rt-H  NYHED: 

Her  kan  du, se’ 
hvor  god  lyden  er 


Tæt  på  Sansuis  gigant 
kassettedeck 


metik  til  plader.  Nu  kommer  rense- 
specialisterne  fra  Kokkedal  også 
med  egne  hovedtelefoner  Kan  de 
mon  klare  sig  i  konkurrencen? 

»ny  elektronik«  går  tæt  på  to  Hi-Fi  for¬ 
stærkere  med  hver  sin  filosofi:  Philips 
og  Rotel. 

Masser  af  spændende  byg-selv  arti¬ 
kler  Professionel  audioattenuator  - 
computer  modem  -  defroster-ur. 

Grundig  oversigt  Alt,  hvad  du  bør  vi¬ 
de  om  transistorer. 

Optiske  computere  er  stadig 
science-fiction,  Men,  hvor  længe? 
Læs  den  spændende  reportage 

Køb  »ny  elektronik«  nummer  3  hos 
din  bladhandler  1  dag.  Pris  kr. 
21,85. 


Altom 

DATA 


TQRHA-DQS 


Markedets  bedste  hurtig-loader  til  Commodore  64 
og  1541  diskstation.  Rummeren  stribe  finesser,  der 
gør  arbejdet  med  en  64’er  meget  nemmere. 

På  modul  koster  TornaDOS  kun  kr.  345. 

★  Loader  programmer  7  gange  hurtigere. 

★  Helt  nyt  DOS  operativsystem. 

★  Nye  og  nemmere  diskkommandoer,  bl.a.  OLD. 

★  Indbygget  resetknap  til  Commodore  64. 

★  Markering  af  resterende  RAM-plads. 

★  Fri  definering  af  funktionstasterne  til 
specielle  opgaver. 


TornaDOS  fås  kun  hos  »Alt  om  Data« 

St.  Kongensgade  72,  1264  København  K,  tlf.:  01  - 1 1  28  33 


/N«P  ff 


'  r 

sÆé 

/  V  ^  * 


/ 


Køb  det  nye  nummer  af 
Alt  om  Data  i  kiosken. 
Kun  kr.  21 ,85 


Du  kan  også  tegne  abonnement  på 
1 1  numre  for  kr.  218,50  på  telefon 
01-11  28  33. 


B5 


drei 5  computer 
TornaDOS-nvt 
s«Permc )dui  gtø 

Se  alle  de  nvp 


Commodore  128 


